Progress Report

Shusei Eshima

2018-05-19

library(topicdict)
library(purrr)
library(quanteda)
library(tibble)
library(ggplot2)
library(dplyr)
library(topicmodels)

Prepare Functions

Create model function:

create_model <- function(docs, seed_list, extra_k){
  set.seed(225)
  names(seed_list) <- 1:length(seed_list)
  dict <- quanteda::dictionary(seed_list)
  model <- topicdict_model(docs,
               dict = dict, extra_k = extra_k,
               remove_numbers = FALSE, 
               remove_punct = TRUE,
               remove_symbols = TRUE,
               remove_separators = TRUE)

  return(model)
}
# Check dispersion
tidy_seededlda_out <- function(model, res, n=15, show=F){
  # Create a nested data frame which contains W and Z
  post <- topicdict::posterior(res)
  topwords <- top_terms(post, n=n)
  topwords <- data.frame(topwords)
  colnames(topwords) <- paste0("EstTopic", 1:ncol(topwords))
  topwords %>%
    tidyr::gather(., key=EstTopic, value=Word) %>%
    mutate(Word = gsub("\\s.*$", "", Word)) -> otidy

  if(show){
    num_seededtopic <- length(model$seeds)
    print(top_terms(post, n))
  }

  return(otidy)
}


list_to_tibble <- function(lobj){
  # Flatten list and get a tibble
  obj_len <- lobj %>% map(length) %>% flatten_int()
  element <- lobj %>% flatten_chr()

  tibble(SeedTopic = rep(paste0("EstTopic", 1:length(obj_len)), obj_len),
         Word=element
         ) -> res
  return(res)
}

count_appearence_list <- function(otidy, lobj){
  all_words <- lobj %>% flatten_chr()
  SeedTopicName <- paste0("EstTopic", 1:length(lobj))

  otidy %>% 
    right_join(., list_to_tibble(get("lobj")), by="Word") %>%
    mutate(count = ifelse(is.na(EstTopic), 0, 1)) %>%
    group_by(Word, SeedTopic) %>%
    summarize(count = sum(count)) -> organized


  organized %>%
    ggplot(., aes(x=factor(count))) +
    geom_histogram(stat="count") +
    xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
    theme_bw(base_size=15) +
    theme(plot.title = element_text(hjust = 0.5)) -> g1

  organized %>%
    ggplot(., aes(x=factor(count))) +
    geom_histogram(stat="count") +
    facet_wrap(~ SeedTopic, ncol=3) +
    xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
    theme_bw(base_size=15) +
    theme(plot.title = element_text(hjust = 0.5)) -> g2

  # Only check topics with seed
  otidy %>% 
    filter(EstTopic %in% get("SeedTopicName")) %>%
    right_join(., list_to_tibble(get("lobj")), by="Word") %>%
    mutate(count = ifelse(is.na(EstTopic), 0, 1)) %>%
    group_by(Word, SeedTopic) %>%
    summarize(count = sum(count)) -> organized_

  organized_ %>%
    ggplot(., aes(x=factor(count))) +
    geom_histogram(stat="count") +
    facet_wrap(~ SeedTopic, ncol=3) +
    xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics\n(Only topics with keywords)") +
    theme_bw(base_size=15) +
    theme(plot.title = element_text(hjust = 0.5)) -> g3

  return(list(g1, g2, g3))
}
library(tm)

get_lda_result <- function(doc_folder, seed_list, iter_num, k, topicvec=1:k, show_n=15, showtop=F){

  # Prepare Data
  corpus <- Corpus(DirSource(doc_folder))
  strsplit_space_tokenizer <- function(x)
      unlist(strsplit(as.character(x), "[[:space:]]+"))

  dtm <- DocumentTermMatrix(corpus,
                           control = list(tokenize=strsplit_space_tokenizer, 
                           stopwords = F, tolower = T, 
                           stemming = F, wordLengths = c(1, Inf)))

  lda <- LDA(dtm, k = k, control = list(seed = 225, iter=iter_num), method="Gibbs")


  all_words <- seed_list %>% flatten_chr()

  tidytext::tidy(lda) %>%
    group_by(topic) %>%
    top_n(show_n, beta) -> topwords_
    topwords_ %>%
    rename(topics = topic, Word = term) %>%
    select(-beta) %>%
    right_join(., list_to_tibble(get("seed_list")), by="Word") %>%
    mutate(count = ifelse(is.na(topics), 0, 1)) %>%
    group_by(Word, SeedTopic) %>%
    summarize(count = sum(count)) -> organized


  organized %>%
    ggplot(., aes(x=factor(count))) +
    geom_histogram(stat="count") +
    xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
    theme_bw(base_size=15) +
    theme(plot.title = element_text(hjust = 0.5)) -> g1

  organized %>%
    ggplot(., aes(x=factor(count))) +
    geom_histogram(stat="count") +
    facet_wrap(~ SeedTopic, ncol=3) +
    xlab("Number of Topics") + ylab("Count") + ggtitle("Words Split across Topics") +
    theme_bw(base_size=15) +
    theme(plot.title = element_text(hjust = 0.5)) -> g2

    if(showtop){
        topwords_ %>%
            ungroup() %>%
            arrange(topic, desc(beta)) %>%
            select(-beta) -> temp
        twdf <- temp %>% filter(topic==1) %>% select(term) %>% as.matrix() %>% data.frame()
        for(k in 2:length(unique(temp$topic))){
            temp %>% filter(topic==k) %>% select(term) %>% as.matrix() %>% data.frame() -> add
            twdf <- cbind(twdf,
                                        add[1:15,])
        }
        colnames(twdf) <- 1:length(unique(temp$topic))
        print(twdf)
    }

  return(list(g1, g2))
}

Amy’s Data Look in Detail

Read Data

doc_folder <- paste0("/Users/Shusei/Dropbox/Study/My_Research/TreeStructuredTopicModel/Papers/replication/Catalinac/data/docs") # Data from original data Document-Term Matrix
docs <- list.files(doc_folder, pattern = "*.txt", full.names = TRUE)

Self-Selected Keywords

# Remove overlapping words for better comparison
seed_list <- list(c("農業 整備 漁業 開発 水産"), # agriculture, fishing industry
                  c("税 消費 暮らし 景気 税金"), # tax
                  c("介護 高齢 保険 長寿 健康"), # aging society
                  c("軍事 戦争 軍 自衛隊 平和"))
seed_list <- lapply(seed_list, function(x){strsplit(x, " ")[[1]]})

K = 80

# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=76)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list)
      1          2          3          4            T_1        T_2       
 [1,] "整備 [✓]" "消費 [✓]" "制度"     "平和 [✓]"   "県"       "環境"    
 [2,] "道路"     "税 [✓]"   "医療"     "憲法"       "農業 [1]" "地球"    
 [3,] "振興"     "政治"     "介護 [✓]" "党"         "青森"     "自然"    
 [4,] "道"       "国民"     "年金"     "暮らし [2]" "福井"     "社会"    
 [5,] "図る"     "反対"     "充実"     "日本"       "山形"     "保全"    
 [6,] "地域"     "増税"     "保険 [✓]" "改悪"       "熊本"     "守る"    
 [7,] "推進"     "日本"     "支援"     "増税"       "米"       "生活"    
 [8,] "促進"     "ひと"     "負担"     "アメリカ"   "奈良"     "教育"    
 [9,] "漁業 [✓]" "力"       "実現"     "社会"       "香川"     "問題"    
[10,] "充実"     "全力"     "保育"     "守る"       "改善"     "取り組む"
[11,] "交通"     "党"       "雇用"     "自民党"     "恩給"     "地域"    
[12,] "産業"     "公約"     "安心"     "保障"       "恩"       "資源"    
[13,] "早期"     "許す"     "拡充"     "企業"       "県民"     "豊か"    
[14,] "農林"     "守る"     "子育て"   "戦争 [✓]"   "開発 [1]" "美しい"  
[15,] "対策"     "進める"   "費"       "共産"       "遺族"     "緑"      
      T_3      T_4      T_5        T_6      T_7        T_8      T_9       
 [1,] "選挙"   "地方"   "教育"     "委員"   "政治"     "円"     "政治"    
 [2,] "区"     "地域"   "子供"     "長"     "社会"     "減税"   "郷土"    
 [3,] "院"     "分権"   "福祉"     "大臣"   "改革"     "拡大"   "力"      
 [4,] "議員"   "国"     "社会"     "国"     "日本"     "税 [2]" "教育"    
 [5,] "衆議"   "改革"   "ひと"     "内閣"   "全力"     "対策"   "発展"    
 [6,] "国会"   "財源"   "学校"     "自民党" "世紀"     "企業"   "心"      
 [7,] "ひと"   "権限"   "心"       "党"     "取り組む" "中小"   "つとめる"
 [8,] "票"     "社会"   "イジメ"   "会長"   "国際"     "大型"   "豊か"    
 [9,] "候補"   "中央"   "大切"     "議員"   "豊か"     "教育"   "全力"    
[10,] "投票"   "実現"   "個性"     "教育"   "作り"     "内需"   "尽くす"  
[11,] "代表"   "制度"   "問題"     "院"     "時代"     "不況"   "福祉"    
[12,] "定数"   "進める" "家庭"     "国会"   "問題"     "図る"   "清潔"    
[13,] "選ぶ"   "住民"   "値"       "衆議"   "経済"     "所得"   "振興"    
[14,] "比例"   "確立"   "取り組む" "政策"   "新しい"   "間接"   "国政"    
[15,] "有権者" "行政"   "偏差"     "当選"   "高齢 [3]" "反対"   "企業"    
      T_10       T_11         T_12       T_13     T_14     T_15      
 [1,] "政治"     "政治"       "社会"     "政治"   "政治"   "党"      
 [2,] "日本"     "税 [2]"     "作り"     "新しい" "日本"   "日本"    
 [3,] "党"       "消費 [2]"   "豊か"     "日本"   "新しい" "共産"    
 [4,] "共産"     "廃止"       "目指す"   "地方"   "時代"   "増税"    
 [5,] "自民党"   "自民党"     "図る"     "作る"   "力"     "企業"    
 [6,] "改革"     "税制"       "地域"     "新党"   "変える" "政治"    
 [7,] "憲法"     "国民"       "教育"     "改革"   "世紀"   "国民"    
 [8,] "国民"     "党"         "福祉"     "変える" "若い"   "民主"    
 [9,] "新しい"   "リクルート" "実現"     "分権"   "改革"   "主人公"  
[10,] "発言"     "選挙"       "つとめる" "時代"   "未来"   "つらぬく"
[11,] "神"       "院"         "推進"     "主権"   "行動"   "流れ"    
[12,] "平和 [4]" "金"         "充実"     "国"     "社会"   "米"      
[13,] "国"       "政権"       "生活"     "中央"   "変わる" "新しい"  
[14,] "提案"     "腐敗"       "世紀"     "主義"   "世代"   "基地"    
[15,] "森"       "権"         "環境"     "変革"   "実現"   "選挙"    
      T_16       T_17     T_18         T_19       T_20       T_21   T_22  
 [1,] "日本"     "年度"   "エネルギー" "景気 [2]" "作り"     "議員" "道路"
 [2,] "国民"     "平成"   "安全"       "回復"     "まち"     "国会" "年金"
 [3,] "党"       "円"     "発電"       "対策"     "都市"     "法案" "高速"
 [4,] "守る"     "予算"   "開発 [1]"   "社会"     "地域"     "立法" "無料"
 [5,] "共産"     "対策"   "原子力"     "経済"     "文化"     "成立" "廃止"
 [6,] "民主"     "事業"   "自然"       "日本"     "推進"     "院"   "実現"
 [7,] "主義"     "市"     "世界"       "改革"     "整備 [1]" "提出" "ひと"
 [8,] "政治"     "金"     "政策"       "全力"     "交通"     "衆議" "削減"
 [9,] "自由"     "鹿児島" "ひと"       "安心"     "自然"     "委員" "政権"
[10,] "企業"     "費"     "原発"       "雇用"     "ひと"     "改正" "補助"
[11,] "声"       "北九州" "核"         "高齢 [3]" "強い"     "問題" "事業"
[12,] "平和 [4]" "特別"   "建設"       "政策"     "環境"     "質問" "金"  
[13,] "再建"     "宣言"   "県民"       "不安"     "経済"     "法律" "基礎"
[14,] "医療"     "計画"   "環境"       "福祉"     "緑"       "案"   "財源"
[15,] "優先"     "交付"   "県"         "実現"     "中心"     "調査" "公共"
      T_23   T_24         T_25     T_26   T_27     T_28     T_29  
 [1,] "ゼ"   "社会"       "問題"   "日本" "故郷"   "大阪"   "円"  
 [2,] "ロ"   "暮らし [2]" "必要"   "国"   "政治"   "大分"   "年金"
 [3,] "導入" "守る"       "経済"   "社会" "心"     "空港"   "制度"
 [4,] "実現" "保障"       "政策"   "国民" "ひと"   "目指す" "廃止"
 [5,] "児童" "予算"       "日本"   "教育" "日本"   "日本"   "医療"
 [6,] "国"   "国民"       "社会"   "守る" "豊か"   "国際"   "月額"
 [7,] "支援" "公共"       "課題"   "国家" "人間"   "実現"   "手当"
 [8,] "首相" "ルール"     "国"     "経済" "世紀"   "関西"   "地域"
 [9,] "保育" "規制"       "重要"   "責任" "世界"   "佐藤"   "企業"
[10,] "財政" "事業"       "我が国" "基本" "文化"   "都市"   "金"  
[11,] "待機" "雇用"       "力"     "創る" "国際"   "交通"   "支給"
[12,] "作戦" "介護 [3]"   "現在"   "心"   "和歌山" "建設"   "子供"
[13,] "公選" "中小"       "努力"   "安全" "生きる" "地元"   "最低"
[14,] "道"   "日本"       "持つ"   "大切" "福祉"   "教育"   "後期"
[15,] "革命" "企業"       "解決"   "世界" "持つ"   "国"     "実現"
      T_30       T_31     T_32         T_33       T_34     T_35    
 [1,] "平和 [4]" "い"     "憲法"       "整備 [1]" "党"     "税 [2]"
 [2,] "政治"     "素"     "守る"       "線"       "日本"   "医療"  
 [3,] "守る"     "晴"     "平和 [4]"   "道路"     "比例"   "企業"  
 [4,] "憲法"     "し"     "反対"       "都市"     "選挙"   "金"    
 [5,] "福祉"     "山梨"   "命"         "建設"     "共産"   "政治"  
 [6,] "実現"     "豊か"   "暮らし [2]" "実現"     "票"     "政党"  
 [7,] "社会"     "栃木"   "福祉"       "促進"     "代表"   "費"    
 [8,] "目指す"   "文化"   "生活"       "駅"       "自民党" "年金"  
 [9,] "生活"     "生活"   "雇用"       "早期"     "議席"   "助成"  
[10,] "国民"     "県"     "ひと"       "交通"     "民主"   "反対"  
[11,] "主義"     "自然"   "社民党"     "号線"     "書く"   "守る"  
[12,] "教育"     "清"     "医療"       "推進"     "区"     "支援"  
[13,] "軍縮"     "世紀"   "戦争 [4]"   "市"       "守る"   "子育て"
[14,] "人権"     "夢"     "労働"       "解消"     "進める" "米"    
[15,] "民主"     "明るい" "国"         "対策"     "改革"   "なくす"
      T_36       T_37         T_38       T_39   T_40       T_41  
 [1,] "税金 [2]" "税 [2]"     "自民党"   "改革" "税 [2]"   "政治"
 [2,] "無駄"     "契約"       "廃止"     "推進" "住宅"     "改革"
 [3,] "議員"     "政治"       "税 [2]"   "社会" "消費 [2]" "国民"
 [4,] "官僚"     "料金"       "政治"     "教育" "生活"     "信頼"
 [5,] "天下り"   "兆"         "消費 [2]" "政策" "減税"     "政策"
 [6,] "削減"     "円"         "国民"     "確立" "円"       "実現"
 [7,] "廃止"     "責任"       "自由"     "制度" "資産"     "責任"
 [8,] "禁止"     "地方"       "輸入"     "実現" "税制"     "持つ"
 [9,] "金"       "改革"       "コメ"     "環境" "土地"     "選挙"
[10,] "公務員"   "年金"       "企業"     "経済" "相続"     "制度"
[11,] "企業"     "消費 [2]"   "日本"     "保障" "実現"     "真"  
[12,] "年金"     "実現"       "守る"     "構築" "年金"     "確立"
[13,] "なくす"   "公共"       "金"       "構造" "非課税"   "姿勢"
[14,] "政治"     "引き下げる" "献金"     "基本" "廃止"     "福祉"
[15,] "法人"     "不安"       "実現"     "税制" "家賃"     "実行"
      T_42       T_43       T_44   T_45         T_46       T_47    
 [1,] "企業"     "農業 [1]" "政治" "支援"       "圏"       "増税"  
 [2,] "中小"     "自給"     "国民" "申し上げる" "東京"     "党"    
 [3,] "支援"     "食糧"     "生活" "政治"       "首都"     "憲法"  
 [4,] "まち"     "率"       "手"   "選挙"       "都市"     "円"    
 [5,] "雇用"     "食料"     "良い" "郷土"       "長崎"     "自民党"
 [6,] "対策"     "図る"     "党利" "決意"       "地方"     "守る"  
 [7,] "制度"     "向上"     "党略" "心から"     "集中"     "民営"  
 [8,] "教育"     "国民"     "利益" "あたたかい" "県"       "庶民"  
 [9,] "進める"   "安全"     "権力" "国民"       "農業 [1]" "郵政"  
[10,] "景気 [2]" "制度"     "ひと" "努力"       "茨城"     "民主"  
[11,] "安心"     "安定"     "無視" "発展"       "移転"     "日本"  
[12,] "事業"     "守る"     "首相" "心"         "国際"     "反対"  
[13,] "商店"     "農家"     "解散" "改革"       "機能"     "改悪"  
[14,] "作り"     "保障"     "遠い" "国政"       "実現"     "野党"  
[15,] "環境"     "輸入"     "不在" "立候補"     "税制"     "確か"  
      T_48     T_49   T_50     T_51       T_52       T_53         T_54    
 [1,] "党"     "地域" "安全"   "基地"     "農林"     "党"         "市"    
 [2,] "政治"   "安心" "対策"   "沖縄"     "産業"     "円"         "県"    
 [3,] "改革"   "安全" "犯罪"   "米"       "県"       "自民党"     "区"    
 [4,] "企業"   "支援" "強化"   "軍 [4]"   "水産 [1]" "費"         "町"    
 [5,] "国民"   "再生" "災害"   "県民"     "漁業 [1]" "軍事 [4]"   "時代"  
 [6,] "自民党" "日本" "治安"   "振興"     "秋田"     "守る"       "新潟"  
 [7,] "日本"   "対策" "拉致"   "縮小"     "宮崎"     "共産"       "岡山"  
 [8,] "共産"   "経済" "改革"   "平和 [4]" "地方"     "中曽根"     "静岡"  
 [9,] "金"     "雇用" "安心"   "安保"     "振興"     "反対"       "日本海"
[10,] "献金"   "医療" "支援"   "返還"     "地域"     "暮らし [2]" "富山"  
[11,] "権"     "教育" "問題"   "撤去"     "北海道"   "教育"       "空港"  
[12,] "選挙"   "環境" "守る"   "条約"     "県民"     "政治"       "実現"  
[13,] "禁止"   "作り" "北朝鮮" "図る"     "岩手"     "福祉"       "千葉"  
[14,] "腐敗"   "力"   "体制"   "離島"     "農"       "老人"       "建設"  
[15,] "憲法"   "保障" "被害"   "利用"     "北"       "国会"       "北"    
      T_55       T_56       T_57     T_58       T_59       T_60      
 [1,] "改革"     "円"       "自民党" "社会"     "社会"     "政権"    
 [2,] "行政"     "兆"       "党"     "女性"     "子供"     "生活"    
 [3,] "財政"     "ひと"     "改革"   "男女"     "安心"     "税金 [2]"
 [4,] "規制"     "事業"     "選挙"   "目指す"   "作る"     "交代"    
 [5,] "地方"     "負担"     "政権"   "福祉"     "日本"     "無駄"    
 [6,] "緩和"     "財源"     "政治"   "平和 [4]" "未来"     "国民"    
 [7,] "介護 [3]" "借金"     "政党"   "進める"   "元気"     "地域"    
 [8,] "分権"     "年間"     "作る"   "実現"     "作り"     "民主"    
 [9,] "省庁"     "国"       "民主"   "人権"     "力"       "変える"  
[10,] "福祉"     "国民"     "政策"   "環境"     "国"       "党"      
[11,] "断行"     "財政"     "新しい" "差別"     "女性"     "医療"    
[12,] "景気 [2]" "税金 [2]" "派"     "確立"     "夢"       "子育て"  
[13,] "行財政"   "公共"     "野党"   "共同"     "働く"     "財源"    
[14,] "推進"     "無駄"     "自由"   "平等"     "暮らせる" "年金"    
[15,] "行革"     "税 [2]"   "中心"   "参画"     "希望"     "官僚"    
      T_61       T_62   T_63         T_64   T_65           T_66      
 [1,] "技術"     "市民" "政治"       "改革" "年金"         "円"      
 [2,] "産業"     "政治" "声"         "郵政" "円"           "国民"    
 [3,] "情報"     "民主" "ひと"       "民営" "兆"           "党"      
 [4,] "教育"     "官僚" "守る"       "政府" "廃止"         "政権"    
 [5,] "科学"     "社会" "働く"       "小泉" "改革"         "日本"    
 [6,] "地域"     "情報" "生活"       "民間" "無駄"         "兆"      
 [7,] "研究"     "公開" "作る"       "郵便" "政権"         "自公"    
 [8,] "育成"     "主役" "国民"       "国民" "実現"         "高齢 [3]"
 [9,] "国際"     "中心" "実現"       "官"   "増税"         "主人公"  
[10,] "いかす"   "実現" "がんばる"   "構造" "削減"         "政治"    
[11,] "作り"     "参加" "暮らし [2]" "局"   "日本"         "共産"    
[12,] "開発 [1]" "共生" "力"         "年金" "地域"         "費"      
[13,] "世界"     "行政" "国政"       "民"   "一元化"       "軍事 [4]"
[14,] "日本"     "党"   "いかす"     "財政" "保険 [3]"     "消費 [2]"
[15,] "文化"     "責任" "国会"       "地方" "サラリーマン" "医療"    
      T_67       T_68       T_69       T_70       T_71       T_72      
 [1,] "自由"     "ひと"     "れる"     "党"       "社会"     "日本"    
 [2,] "主義"     "政治"     "と"       "日本"     "党"       "世界"    
 [3,] "社会"     "声"       "バランス" "共産"     "事業"     "平和 [4]"
 [4,] "民主"     "年間"     "徳島"     "国民"     "万博"     "国"      
 [5,] "世界"     "国政"     "教育"     "政治"     "日本"     "国際"    
 [6,] "政治"     "問題"     "作る"     "反対"     "作る"     "経済"    
 [7,] "日本"     "経験"     "調和"     "主権"     "歩"       "貢献"    
 [8,] "平和 [4]" "持つ"     "日本"     "目指す"   "景気 [2]" "外交"    
 [9,] "体制"     "議員"     "社会"     "守る"     "憲法"     "アジア"  
[10,] "経済"     "地元"     "進める"   "選挙"     "自民党"   "国民"    
[11,] "豊か"     "自分"     "豊か"     "在"       "力"       "関係"    
[12,] "東欧"     "生活"     "経済"     "平和 [4]" "県民"     "社会"    
[13,] "守る"     "働く"     "体育"     "政党"     "守る"     "連"      
[14,] "福祉"     "生まれる" "世界"     "公約"     "政治"     "協力"    
[15,] "米"       "若い"     "県"       "アメリカ" "共産"     "国家"    
      T_73     T_74     T_75         T_76    
 [1,] "日本"   "政権"   "年金"       "政治"  
 [2,] "国"     "交代"   "負担"       "改革"  
 [3,] "国民"   "民主"   "の"         "腐敗"  
 [4,] "問題"   "党"     "税 [2]"     "実現"  
 [5,] "必要"   "日本"   "分"         "政権"  
 [6,] "ひと"   "変える" "基礎"       "金"    
 [7,] "自分"   "不安"   "消費 [2]"   "自民党"
 [8,] "良い"   "自民党" "国庫"       "国民"  
 [9,] "責任"   "国民"   "財源"       "権"    
[10,] "教育"   "年金"   "将来"       "選挙"  
[11,] "作る"   "政策"   "引き上げる" "新しい"
[12,] "将来"   "実現"   "円"         "防止"  
[13,] "取る"   "安心"   "ひと"       "制度"  
[14,] "持つ"   "将来"   "所得"       "党"    
[15,] "改める" "経済"   "日本"       "生活"  
[[1]]


[[2]]


[[3]]

Standard LDA

get_lda_result(doc_folder, seed_list, iter_num, k=80, showtop=T)
        1        2      3      4    5    6          7        8    9   10
1    地域     対策   社会   地方 社会 行政       環境     子供 安全 年金
2    再生     図る   保障   分権 女性 改革       地球     安心 対策 制度
3    経済     振興   日本   地域 環境 規制       自然     社会 安心   円
4    活性     改善 暮らし     国 働く 緩和       保全     未来 保障 医療
5    元気 つとめる   予算   中央 男女 法人 エネルギー     元気 強化 地域
6    産業     充実 自民党   権限 参加 省庁       社会     希望   食 廃止
7    支援     推進   憲法   自治 実現 地方         水     作る 再生 手当
8    構築     企業   守る   財源 高齢 介護       資源       夢 犯罪   金
9  支える     福祉   政治   確立 共同 断行     美しい   育てる 治安 無駄
10   雇用     中小 ルール   制度 参画 削減       循環 暮らせる 災害 月額
11   創出     開発   規制   主権 育児 責任 リサイクル   持てる 制度 子供
12   自立     促進   国民   自立 労働 大胆       保護     老後 拉致 最低
13   観光     努力   事業   住民 福祉 撤廃     優しい     日本 外交 主権
14   社会     育成 共産党 市町村 子供 行革       破壊     若者 教育 補償
15   環境     事業   介護   集権 家庭 官僚         緑 取り戻す 体制 創設
     11   12     13     14     15         16       17   18       19   20
1  政治 財政   基地   日本 新しい       年金     日本 都市     文化 企業
2  腐敗 経済     米     国   時代       負担     国民   線     国際 中小
3  改革 行政   沖縄   国家   世紀       制度   共産党   市     都市 支援
4  実現 社会     軍   教育 ひらく       保険     守る 実現     作り 雇用
5  制度 改革 目指す   基本 目指す       ひと     民主 整備     推進 制度
6  防止 再建   企業   経済   社会       保障       税   駅 スポーツ 事業
7  金権 政府   医療   持つ 向ける       医療       声 建設     交流 金融
8  選挙 構造   県民 日本人   未来         費     消費 推進     大阪 経営
9  制定 高齢   平和   社会 求める       所得     政治 促進     振興 零細
10 資金 成長   守る   国民   挑戦       基礎     公約 交通     育成 経済
11 確立 効率   安保   歴史 迎える       軽減     反対 早期     空港 融資
12 生活 赤字   福祉   家族   対応 引き上げる     政党 東京   いかす 商店
13 献金 世代 進める   責任   変革       介護   やめる 解消     伝統 公共
14 事件 将来   充実   良い   創る       国庫 つらぬく 道路     産業 保証
15 強化 国家   利用   誇り   行動       給付   目指す   町       圏 予算
         21     22       23     24     25     26   27   28       29
1        心 自民党       税   政治     力     県 政治 技術     守る
2      社会   改革     消費   政党   若い   農業 信頼 産業   暮らし
3      豊か   政治     所得   体質 いかす   県民 清潔 情報       命
4      人間   政権     税制 わかる   経験   発展 豊か 育成     国民
5      教育 新しい     税率   保守   世代   産業 信条 科学     企業
6      大切   選挙     福祉   良い   行動   全国 持つ 開発     平和
7      福祉     党     国民   不信   時代     北 誠実 教育     約束
8      世紀   政党   見直し   政界   情熱 日本海 立つ 研究     医療
9    育てる   支配     反対   正す   国政   図る 努力 国際 がんばる
10 思いやり   交代 引き上げ     感   世紀   青森 姿勢 推進     許す
11     文化   政界     是正 かかる   持つ   地元 立場 創造     子供
12     自然   連立     負担   自身   秋田   福井 共に 環境     大切
13       愛     派   不公平   利益   福祉   山形 原点 人材     中小
14   生きる   内閣     住民   岡山   地元     圏   汗 通信     働く
15     個性   勢力       品   自分   実行   福島   道 整備     優先
         30           31     32     33       34       35       36       37
1      政権         年金   故郷   減税     医療     作る     ひと     図る
2      税金           円   豊か     円     制度     日本     自分 つとめる
3      交代         廃止   活力   拡大     介護   進める     持つ     充実
4      無駄         実現   作り   不況     充実     国民     育つ   進める
5    変える         無駄   郷土   大型     福祉   新しい   感じる     振興
6      官僚           兆   世紀   内需     年金       国     子供     教育
7    民主党           金 溢れる   対策     保険     守る     仕事     安定
8    なくす         削減   発展   大幅     高齢     約束       父     実現
9    天下り         改革     夢   間接     支援       力     先生   目指す
10     使い         制度     心 中曽根     障害     抜本     知る     確立
11     使う         子供   住む   反対 サービス 合わせる 生まれる     産業
12     癒着       一元化   創造   所得     体制       柱     良い     福祉
13 しがらみ         ひと   明日     税     施設   強める     京都     育成
14     必要 サラリーマン   文化   導入     保障     合意       心     地域
15   変わる         地域   魅力   平和     健康   改める     働く     活性
         38       39     40       41     42     43       44   45     46
1      ひと   目指す   必要     整備   議員   農林     政治 推進   増税
2      働く     実現   問題     交通   国会   漁業     日本 対策   憲法
3      作る     社会   現在     生活   法案   水産   変える 整備 自民党
4      大切     高齢   政策     地域   成立   振興   変わる 社会   反対
5        国     福祉   状況       網   立法   産業       力 確立   守る
6    年寄り     安心   進む     道路   改正   地場   新しい 強化   庶民
7      弱い     生活   経済     基盤 衆議院   観光     流れ 確保   改悪
8        力 暮らせる   重要     豊か   年間   工業   大きい 支援   民営
9  がんばる     公正   最大     充実   首相 北海道     国民 施策   野党
10     必要     活力   議論     環境   活動     農     立つ 総合   郵政
11     立場     公平   主張     発展   法律   地域     動く 促進   確か
12   生きる     充実   将来     福祉   提案   福祉     約束 安定   日本
13   まじめ     教育   人口 取り組む     案   林業     怒り 積極   戦争
14     大事     図る   得る     体系   政府     県     戦う 体制 共産党
15   支える     信頼 我が国     作り   定数   宮崎 チャンス 図る     条
       47     48     49     50     51     52     53       54     55     56
1    住宅   責任   作り 共産党     税   企業 我が国     問題   改革     円
2      税     国   まち 自民党   消費 自民党   努力 取り組む   推進   国民
3    生活   持つ     国     費   廃止   改革   国際     解決   実現   政権
4    減税   未来 進める   軍事 自民党   国民   社会     課題   断行   医療
5    土地     力   環境   反対   政治   献金   経済     環境   教育     費
6    資産   日本   教育     円   自由 共産党   安定     重要   構造     兆
7    実現   強い   地域   平和   輸入   日本   発展     全力 行財政   自公
8    老人   創る   安心 暮らし   国民     党   世紀     教育   制度     税
9    相続   必要   商店 中曽根   コメ   金権   世界     高齢   抜本   派遣
10 パート     感   ひと   戦争   阻止   政治   時代     改革   税制   高齢
11   軽減   信頼   活動   削る   企業   禁止   対応     立つ   実行   保障
12 非課税   勇気   強い やめる   献金   選挙   課題     立場     真   軍事
13   実施   将来   住む   教育   団体   団体   繁栄     社会   行政 主人公
14   固定 果たす 目指す   老人   禁止   憲法   重要     戦後 見直し   労働
15   家賃   良い   安全 イジメ   国会     区   貿易   抱える 進める   財源
     57   58       59     60       61       62     63     64     65
1  政策   円     憲法   教育     景気     全力   選挙   世界   道路
2  生活   兆     消費   子供     回復   尽くす     区   平和   年金
3  経済 事業       税   学校     対策       力     票   国際     金
4  実現 公共     増税   社会     経済     実現   代表   外交   補助
5  社会 ひと アメリカ   福祉     社会   あげる   ひと   貢献   削減
6  基本 予算     改悪   家庭     安定 がんばる   候補 アジア   廃止
7  教育 年間   暮らし   個性 取り組む     約束   比例   日本   議員
8  重点 財源   自民党   制度     高齢     福祉   政党   関係   ひと
9  確立   国     平和   確立     雇用     守る 自民党   協力   高速
10 優先   費     保障 イジメ     世紀     投球   政策   国連   事業
11 環境 無駄     反対     心     不況 合わせる   是非   積極   公共
12 置く 使う     いい   徳島     実行     医療   投票     国   財源
13 中心 税金     社会   大切     信頼   求める   選択   信頼   無料
14 転換 負担   民主党   重視     危機   入れる 有権者   諸国   基礎
15 高齢 借金   共産党 のばす     本格     中小   選ぶ 進める 民主党
           66       67     68       69   70       71     72   73   74
1        消費     市民   支援     政治 平和     国民     道 農業 不安
2          税     社会 子育て       声 憲法     政治   整備 自給 年金
3        政治     情報   保育     国政 人権     生活   早期   率 安心
4        廃止     参加   医療     反映 守る       手   道路 食糧 雇用
5        税制     公開   雇用     庶民 福祉 取り戻す 自動車 食料 社会
6      自民党     活動   拡充     国会 反対     実現   建設 向上 医療
7        国民 システム   充実   いかす 労働     本位   促進 安全 介護
8        選挙     官僚   介護     約束 基本   求める   完成 農家 将来
9  リクルート     主役     金 がんばる 差別     絶対   空港 安定 制度
10     不公平     共生   児童   届ける 生活     不在   高速 生産 保障
11         党     中心   安心       力 戦争     利益 新幹線 輸入 解消
12       公正     主導   対策     福祉 制定     優先   事業 確立 老後
13       政権     行政   ゼロ     聞く 許す     日本   国道 確保 生活
14       公平   民主党   制度     決意 権利     戻す   地域 経営 失業
15     社会党     自立   解消 取り戻す 尊重   支える     南 守る 経済
       75         76       77   78     79     80
1    日本       支援     日本 主義   改革   委員
2    世界 申し上げる     増税 自由   民営   大臣
3    経済       郷土   共産党 民主   郵政     長
4      国       決意     消費 社会   小泉   平成
5      力 あたたかい       税 政治   民間   政策
6    大国         心     反対 国民   政府   内閣
7      道     心から       党 平和     官   実績
8  目指す       発展     国民 世界   郵便   国会
9  支える       国政     企業 体制     民   予算
10 世界一     立候補 つらぬく 経済   構造   議員
11   将来       選挙     流れ 日本     局   会長
12   先進       感謝     財政 確立     国 衆議院
13   進む       当選     選挙 資本   資金   当選
14 誇れる       賜る   主人公 守る   法人   総理
15   改革     力強い     政治 国家 公務員     党
[[1]]


[[2]]

K = 100

# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=96)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list)
      1          2            3          4            T_1         
 [1,] "整備 [✓]" "税 [✓]"     "制度"     "税 [2]"     "エネルギー"
 [2,] "地域"     "消費 [✓]"   "介護 [✓]" "消費 [2]"   "青森"      
 [3,] "振興"     "政治"       "年金"     "憲法"       "発電"      
 [4,] "道路"     "国民"       "医療"     "党"         "県"        
 [5,] "産業"     "増税"       "保険 [✓]" "増税"       "原子力"    
 [6,] "図る"     "反対"       "充実"     "日本"       "開発 [1]"  
 [7,] "充実"     "党"         "負担"     "暮らし [2]" "バイオ"    
 [8,] "推進"     "暮らし [✓]" "社会"     "改悪"       "建設"      
 [9,] "交通"     "税率"       "安心"     "アメリカ"   "安全"      
[10,] "農林"     "全力"       "実現"     "平和 [✓]"   "原発"      
[11,] "促進"     "引き上げ"   "高齢 [✓]" "政治"       "県民"      
[12,] "開発 [✓]" "力"         "保障"     "守る"       "燃料"      
[13,] "農業 [✓]" "税制"       "雇用"     "社会"       "自然"      
[14,] "発展"     "中心"       "支援"     "保障"       "マス"      
[15,] "基盤"     "ひと"       "福祉"     "自民党"     "農林"      
      T_2        T_3      T_4      T_5      T_6      T_7      T_8       
 [1,] "都市"     "教育"   "年金"   "改革"   "地方"   "地方"   "税金 [2]"
 [2,] "文化"     "子供"   "円"     "日本"   "分権"   "地域"   "無駄"    
 [3,] "国際"     "改革"   "改革"   "経済"   "地域"   "金"     "官僚"    
 [4,] "作り"     "学校"   "廃止"   "教育"   "進める" "事業"   "政治"    
 [5,] "実現"     "制度"   "兆"     "進める" "国"     "交付"   "年金"    
 [6,] "施設"     "個性"   "無駄"   "科学"   "改革"   "再生"   "変える"  
 [7,] "スポーツ" "福祉"   "実現"   "再生"   "政治"   "補助"   "交代"    
 [8,] "圏"       "イジメ" "削減"   "構造"   "中央"   "公共"   "なくす"  
 [9,] "福祉"     "進める" "増税"   "技術"   "推進"   "活性"   "天下り"  
[10,] "構想"     "心"     "子供"   "自民党" "環境"   "財源"   "政権"    
[11,] "生活"     "値"     "政権"   "作る"   "生活"   "直接"   "使い"    
[12,] "まち"     "偏差"   "一元化" "官"     "行政"   "税 [2]" "日本"    
[13,] "世紀"     "確立"   "地域"   "食"     "自治"   "制度"   "議員"    
[14,] "教育"     "家庭"   "道路"   "推進"   "権限"   "分権"   "使う"    
[15,] "交流"     "高校"   "日本"   "民間"   "政策"   "予算"   "予算"    
      T_9        T_10       T_11   T_12       T_13       T_14     T_15    
 [1,] "県"       "平和 [4]" "議員" "社会"     "対策"     "政治"   "政治"  
 [2,] "宮崎"     "日本"     "国会" "万博"     "安全"     "日本"   "新しい"
 [3,] "福井"     "世界"     "法案" "愛知"     "安心"     "新しい" "時代"  
 [4,] "山形"     "国際"     "立法" "党"       "推進"     "変える" "日本"  
 [5,] "道"       "国"       "成立" "日本"     "社会"     "作る"   "改革"  
 [6,] "日本海"   "貢献"     "提出" "作る"     "改革"     "改革"   "世紀"  
 [7,] "高速"     "外交"     "委員" "事業"     "教育"     "変わる" "行動"  
 [8,] "福島"     "アジア"   "院"   "名古屋"   "保障"     "実現"   "変革"  
 [9,] "自動車"   "環境"     "法律" "消費 [2]" "支援"     "生活"   "力"    
[10,] "県内"     "進める"   "問題" "自民党"   "雇用"     "国"     "実現"  
[11,] "新幹線"   "経済"     "提案" "ひと"     "日本"     "力"     "若い"  
[12,] "県民"     "目指す"   "改正" "力"       "経済"     "経済"   "目指す"
[13,] "交通"     "連"       "質問" "歩"       "景気 [2]" "新生"   "世界"  
[14,] "大学"     "関係"     "案"   "守る"     "地域"     "国民"   "決意"  
[15,] "農業 [1]" "社会"     "衆議" "政府"     "制度"     "実行"   "求める"
      T_16     T_17     T_18       T_19       T_20       T_21        
 [1,] "九州"   "日本"   "産業"     "郵便"     "円"       "党"        
 [2,] "鹿児島" "世界"   "技術"     "局"       "減税"     "共産"      
 [3,] "北九州" "国"     "地域"     "郵政"     "税 [2]"   "自民党"    
 [4,] "平成"   "経済"   "教育"     "民営"     "政治"     "日本"      
 [5,] "空港"   "力"     "環境"     "円"       "大型"     "費"        
 [6,] "福岡"   "新しい" "社会"     "小泉"     "国民"     "軍事 [4]"  
 [7,] "大分"   "政策"   "育成"     "増税"     "中曽根"   "守る"      
 [8,] "市"     "作る"   "情報"     "企業"     "間接"     "暮らし [2]"
 [9,] "年度"   "時代"   "作り"     "金融"     "平和 [4]" "国民"      
[10,] "道"     "夢"     "ひと"     "負担"     "反対"     "反対"      
[11,] "都市"   "創る"   "経済"     "保険 [3]" "守る"     "円"        
[12,] "計画"   "道"     "整備 [1]" "年金"     "拡大"     "平和 [4]"  
[13,] "炭"     "ひと"   "科学"     "税金 [2]" "不況"     "民"        
[14,] "産"     "広島"   "国際"     "事業"     "教育"     "削る"      
[15,] "自動車" "国際"   "推進"     "地域"     "自民党"   "戦争 [4]"  
      T_22     T_23     T_24         T_25   T_26   T_27     T_28      
 [1,] "日本"   "政治"   "環境"       "政治" "改革" "犯罪"   "税 [2]"  
 [2,] "未来"   "国民"   "地球"       "企業" "民営" "安全"   "減税"    
 [3,] "社会"   "改革"   "社会"       "金"   "郵政" "ひと"   "住宅"    
 [4,] "子供"   "責任"   "自然"       "献金" "政府" "日本"   "生活"    
 [5,] "国"     "生活"   "守る"       "権"   "民間" "治安"   "消費 [2]"
 [6,] "世代"   "信頼"   "保全"       "禁止" "小泉" "問題"   "円"      
 [7,] "責任"   "持つ"   "教育"       "団体" "構造" "強化"   "資産"    
 [8,] "持つ"   "政策"   "豊か"       "腐敗" "官"   "拉致"   "相続"    
 [9,] "時代"   "不信"   "福祉"       "国民" "国民" "安心"   "実現"    
[10,] "力"     "感"     "問題"       "守る" "制度" "北朝鮮" "所得"    
[11,] "将来"   "地方"   "生活"       "反対" "社会" "解決"   "年金"    
[12,] "新しい" "わかる" "水"         "一掃" "地方" "増員"   "非課税"  
[13,] "希望"   "必要"   "取り組む"   "政党" "実現" "警察官" "土地"    
[14,] "夢"     "問題"   "破壊"       "国会" "民"   "年金"   "家賃"    
[15,] "世紀"   "目指す" "リサイクル" "実現" "年金" "外交"   "固定"    
      T_29       T_30       T_31     T_32   T_33         T_34     T_35    
 [1,] "税 [2]"   "円"       "女性"   "市民" "支援"       "ひと"   "教育"  
 [2,] "契約"     "増税"     "社会"   "政治" "申し上げる" "子供"   "日本"  
 [3,] "消費 [2]" "党"       "子供"   "社会" "郷土"       "作る"   "心"    
 [4,] "改革"     "憲法"     "作る"   "官僚" "政治"       "働く"   "国"    
 [5,] "料金"     "日本"     "働く"   "民主" "選挙"       "心"     "国民"  
 [6,] "政治"     "税 [2]"   "進める" "情報" "心"         "命"     "基本"  
 [7,] "円"       "控除"     "環境"   "公開" "決意"       "大切"   "守る"  
 [8,] "地方"     "民主"     "作り"   "主役" "あたたかい" "仕事"   "大切"  
 [9,] "実現"     "自民党"   "安心"   "参加" "心から"     "社会"   "文化"  
[10,] "兆"       "戦争 [4]" "教育"   "行政" "国政"       "生きる" "伝統"  
[11,] "行政"     "民営"     "家庭"   "福祉" "努力"       "自分"   "歴史"  
[12,] "国"       "郵政"     "ひと"   "中心" "立候補"     "持つ"   "日本人"
[13,] "官僚"     "郵便"     "育児"   "活動" "発展"       "年寄り" "国家"  
[14,] "公共"     "所得"     "参加"   "党"   "感謝"       "歳"     "憲法"  
[15,] "減税"     "局"       "年寄り" "共生" "全力"       "強い"   "精神"  
      T_36   T_37       T_38       T_39       T_40       T_41     T_42    
 [1,] "区"   "円"       "社会"     "企業"     "基地"     "地方"   "若い"  
 [2,] "市"   "医療"     "推進"     "中小"     "沖縄"     "地域"   "政治"  
 [3,] "県"   "政権"     "図る"     "制度"     "米"       "日本"   "力"    
 [4,] "町"   "費"       "つとめる" "まち"     "軍 [4]"   "国"     "秋田"  
 [5,] "北"   "兆"       "改革"     "雇用"     "長崎"     "社会"   "世代"  
 [6,] "地域" "日本"     "教育"     "支援"     "県民"     "経済"   "時代"  
 [7,] "新潟" "国民"     "豊か"     "商店"     "振興"     "分権"   "情熱"  
 [8,] "全国" "党"       "政治"     "事業"     "平和 [4]" "主権"   "国際"  
 [9,] "産業" "自公"     "実現"     "景気 [2]" "県"       "実現"   "経験"  
[10,] "千葉" "消費 [2]" "確立"     "対策"     "離島"     "中央"   "和歌山"
[11,] "国政" "税 [2]"   "充実"     "回復"     "実現"     "創る"   "行動"  
[12,] "発展" "政治"     "福祉"     "教育"     "縮小"     "変える" "世紀"  
[13,] "市長" "高齢 [3]" "作り"     "金融"     "安保"     "改革"   "いかす"
[14,] "仙台" "企業"     "育成"     "安心"     "撤去"     "道"     "日本"  
[15,] "郡"   "憲法"     "中小"     "融資"     "建設"     "確立"   "県"    
      T_43       T_44     T_45     T_46     T_47         T_48    
 [1,] "党"       "故郷"   "増税"   "改革"   "安心"       "選挙"  
 [2,] "日本"     "豊か"   "党"     "行政"   "作る"       "院"    
 [3,] "共産"     "産業"   "守る"   "財政"   "不安"       "衆議"  
 [4,] "増税"     "作り"   "憲法"   "規制"   "社会"       "区"    
 [5,] "国民"     "文化"   "反対"   "地方"   "生活"       "議員"  
 [6,] "政治"     "自然"   "日本"   "緩和"   "年金"       "党"    
 [7,] "企業"     "いかす" "自民党" "推進"   "守る"       "自民党"
 [8,] "民主"     "郷土"   "庶民"   "社会"   "日本"       "国会"  
 [9,] "自民党"   "地域"   "国民"   "断行"   "子供"       "民主"  
[10,] "つらぬく" "心"     "改悪"   "福祉"   "医療"       "票"    
[11,] "消費 [2]" "世紀"   "野党"   "分権"   "制度"       "力"    
[12,] "主人公"   "目指す" "共産"   "実現"   "暮らせる"   "参議"  
[13,] "やめる"   "活力"   "民主"   "行財政" "老後"       "代表"  
[14,] "変える"   "住む"   "確か"   "構造"   "暮らし [2]" "定数"  
[15,] "流れ"     "作る"   "民営"   "日本"   "国民"       "議席"  
      T_49       T_50       T_51       T_52     T_53       T_54        
 [1,] "農林"     "国民"     "社会"     "政治"   "党"       "守る"      
 [2,] "水産 [1]" "党"       "実現"     "ひと"   "日本"     "政治"      
 [3,] "漁業 [1]" "民主"     "目指す"   "作り"   "税 [2]"   "教育"      
 [4,] "振興"     "中心"     "環境"     "福祉"   "共産"     "介護 [3]"  
 [5,] "実現"     "実現"     "地域"     "豊か"   "消費 [2]" "規制"      
 [6,] "産業"     "なくす"   "安心"     "教育"   "企業"     "切り替える"
 [7,] "中小"     "政治"     "作り"     "心"     "米"       "保険 [3]"  
 [8,] "県"       "主人公"   "福祉"     "目指す" "癒着"     "子供"      
 [9,] "地方"     "日本"     "豊か"     "力"     "選挙"     "中心"      
[10,] "企業"     "同盟"     "活力"     "守る"   "政治"     "作る"      
[11,] "岩手"     "軍事 [4]" "経済"     "社会"   "増税"     "暮らし [2]"
[12,] "所得"     "力"       "高齢 [3]" "実現"   "流れ"     "やめる"    
[13,] "農山"     "絶対"     "暮らせる" "郷土"   "官"       "大型"      
[14,] "県民"     "推進"     "子供"     "清潔"   "財"       "企業"      
[15,] "工業"     "児童"     "世紀"     "信頼"   "反対"     "事業"      
      T_55       T_56   T_57       T_58     T_59         T_60      
 [1,] "景気 [2]" "道路" "い"       "対策"   "政治"       "党"      
 [2,] "回復"     "年金" "素"       "円"     "声"         "改革"    
 [3,] "経済"     "高速" "晴"       "企業"   "国政"       "日本"    
 [4,] "対策"     "廃止" "し"       "教育"   "庶民"       "自民党"  
 [5,] "不安"     "無料" "生活"     "拡大"   "国会"       "共産"    
 [6,] "財政"     "削減" "清"       "図る"   "いかす"     "国民"    
 [7,] "雇用"     "財源" "ひと"     "減税"   "力"         "憲法"    
 [8,] "政策"     "政権" "豊か"     "改善"   "暮らし [2]" "選挙"    
 [9,] "世紀"     "ひと" "良い"     "中小"   "守る"       "区"      
[10,] "生活"     "金"   "国際"     "安定"   "生活"       "ソ連"    
[11,] "不況"     "実現" "ゆとり"   "家庭"   "てる"       "平和 [4]"
[12,] "事業"     "補助" "持つ"     "振興"   "た"         "円"      
[13,] "社会"     "事業" "く"       "恩給"   "変える"     "抜本"    
[14,] "公共"     "無駄" "受ける"   "努力"   "反映"       "新党"    
[15,] "拡大"     "議員" "恵まれる" "税 [2]" "届ける"     "悪政"    
      T_61     T_62     T_63       T_64       T_65       T_66      
 [1,] "政治"   "医療"   "税 [2]"   "政策"     "世界"     "県"      
 [2,] "改革"   "支援"   "自由"     "国"       "経済"     "圏"      
 [3,] "自民党" "削減"   "基礎"     "国民"     "社会"     "茨城"    
 [4,] "政権"   "金"     "日本"     "国家"     "国際"     "首都"    
 [5,] "腐敗"   "子育て" "一新"     "日本"     "政治"     "佐賀"    
 [6,] "党"     "地域"   "作る"     "経済"     "国民"     "栃木"    
 [7,] "国民"   "議員"   "社会"     "外交"     "発展"     "農業 [1]"
 [8,] "新しい" "守る"   "所得"     "必要"     "安定"     "時代"    
 [9,] "金"     "充実"   "改める"   "政府"     "平和 [4]" "工業"    
[10,] "実現"   "環境"   "経済"     "保障"     "我が国"   "北関東"  
[11,] "選挙"   "公務員" "消費 [2]" "作る"     "日本"     "県南"    
[12,] "権"     "費"     "仕組み"   "国際"     "自由"     "生活"    
[13,] "支配"   "成長"   "国"       "行政"     "世紀"     "商"      
[14,] "交代"   "保育"   "教育"     "アメリカ" "生活"     "郷土"    
[15,] "事件"   "解消"   "国民"     "機能"     "郷土"     "国民"    
      T_67       T_68       T_69     T_70   T_71       T_72          
 [1,] "問題"     "れる"     "対策"   "円"   "農業 [1]" "政権"        
 [2,] "必要"     "と"       "災害"   "年金" "自給"     "党"          
 [3,] "日本"     "バランス" "支援"   "制度" "率"       "民主"        
 [4,] "経済"     "国"       "神戸"   "地域" "食糧"     "交代"        
 [5,] "社会"     "調和"     "被災"   "医療" "食料"     "日本"        
 [6,] "課題"     "持つ"     "復興"   "廃止" "向上"     "国民"        
 [7,] "政策"     "問題"     "地震"   "月額" "安全"     "政治"        
 [8,] "国"       "必要"     "防災"   "手当" "守る"     "自民党"      
 [9,] "解決"     "作り"     "住宅"   "無駄" "図る"     "政策"        
[10,] "取り組む" "強い"     "安全"   "子供" "安定"     "選挙"        
[11,] "ひと"     "求める"   "被害"   "企業" "実現"     "実現"        
[12,] "現在"     "体制"     "生活"   "政権" "目指す"   "政党"        
[13,] "我が国"   "生"       "実現"   "交代" "漁業 [1]" "変える"      
[14,] "努力"     "改革"     "大震災" "支給" "国民"     "選択"        
[15,] "持つ"     "米"       "守る"   "金"   "保障"     "マニフェスト"
      T_73     T_74     T_75         T_76   T_77       T_78     T_79      
 [1,] "ゼ"     "労働"   "税 [2]"     "円"   "建設"     "作り"   "政治"    
 [2,] "ロ"     "老人"   "政治"       "兆"   "早期"     "地域"   "改革"    
 [3,] "支援"   "充実"   "消費 [2]"   "ひと" "道路"     "まち"   "信頼"    
 [4,] "児童"   "医療"   "税制"       "年間" "促進"     "元気"   "自由"    
 [5,] "実現"   "制度"   "廃止"       "事業" "道"       "日本"   "倫理"    
 [6,] "保育"   "金"     "国民"       "予算" "事業"     "国"     "制度"    
 [7,] "導入"   "パート" "自民党"     "国"   "国道"     "活性"   "保守"    
 [8,] "作戦"   "助成"   "社会"       "財源" "完成"     "安心"   "国民"    
 [9,] "子育て" "ホーム" "改革"       "財政" "実現"     "再生"   "確立"    
[10,] "待機"   "増設"   "不公平"     "費"   "整備 [1]" "支援"   "取り組む"
[11,] "家庭"   "特別"   "公正"       "借金" "バイパス" "ひと"   "選挙"    
[12,] "宣言"   "支援"   "リクルート" "負担" "推進"     "観光"   "推進"    
[13,] "時間"   "年金"   "公平"       "法人" "線"       "進める" "自民党"  
[14,] "仕事"   "拡充"   "福祉"       "公共" "号"       "商店"   "金"      
[15,] "財政"   "国"     "豊か"       "年金" "自動車"   "安全"   "クリーン"
      T_80   T_81       T_82       T_83       T_84     T_85      
 [1,] "政治" "線"       "政治"     "平和 [4]" "大阪"   "改革"    
 [2,] "改革" "整備 [1]" "ひと"     "憲法"     "京都"   "自民党"  
 [3,] "実現" "都市"     "う"       "社会"     "都市"   "政治"    
 [4,] "腐敗" "交通"     "報"       "守る"     "推進"   "政党"    
 [5,] "生活" "道路"     "働く"     "人権"     "関西"   "責任"    
 [6,] "制度" "実現"     "持つ"     "目指す"   "支援"   "日本"    
 [7,] "確立" "駅"       "政策"     "福祉"     "地元"   "政界"    
 [8,] "癒着" "まち"     "まじめ"   "反対"     "目指す" "党"      
 [9,] "社会" "促進"     "汗"       "基本"     "空港"   "政策"    
[10,] "環境" "推進"     "努力"     "差別"     "発展"   "選挙"    
[11,] "選挙" "地下鉄"   "変わる"   "実現"     "断行"   "安定"    
[12,] "防止" "解消"     "自分"     "雇用"     "伝統"   "政権"    
[13,] "政"   "網"       "地元"     "ひと"     "市"     "景気 [2]"
[14,] "金"   "東京"     "がんばる" "生活"     "南部"   "回復"    
[15,] "官"   "区"       "変える"   "戦争 [4]" "緑"     "派"      
      T_86       T_87       T_88       T_89       T_90         T_91      
 [1,] "北海道"   "全力"     "日本"     "税 [2]"   "の"         "委員"    
 [2,] "南"       "実現"     "国民"     "消費 [2]" "分"         "長"      
 [3,] "道"       "取り組む" "党"       "政治"     "年金"       "大臣"    
 [4,] "熊本"     "改革"     "守る"     "廃止"     "負担"       "国"      
 [5,] "漁業 [1]" "問題"     "共産"     "自民党"   "党"         "内閣"    
 [6,] "産業"     "尽くす"   "民主"     "国民"     "日本"       "国会"    
 [7,] "農"       "政策"     "政治"     "自由"     "国庫"       "つとめる"
 [8,] "新幹線"   "福祉"     "主義"     "日本"     "民主"       "院"      
 [9,] "守る"     "対策"     "増税"     "輸入"     "税 [2]"     "議員"    
[10,] "育てる"   "社会"     "税 [2]"   "コメ"     "基礎"       "会長"    
[11,] "故郷"     "経験"     "声"       "金"       "引き上げる" "予算"    
[12,] "農林"     "高齢 [3]" "教育"     "企業"     "自民党"     "衆議"    
[13,] "約束"     "国政"     "福祉"     "守る"     "り"         "対策"    
[14,] "力"       "課題"     "政党"     "院"       "消費 [2]"   "当選"    
[15,] "がんばる" "いかす"   "平和 [4]" "権"       "円"         "党"      
      T_92     T_93       T_94       T_95         T_96      
 [1,] "選挙"   "主義"     "日本"     "日本"       "農業 [1]"
 [2,] "政治"   "自由"     "国民"     "社会"       "米"      
 [3,] "区"     "社会"     "党"       "政治"       "自由"    
 [4,] "ひと"   "民主"     "税 [2]"   "保障"       "農家"    
 [5,] "首相"   "世界"     "共産"     "国民"       "農政"    
 [6,] "議員"   "日本"     "政治"     "党"         "コメ"    
 [7,] "制度"   "経済"     "守る"     "予算"       "減反"    
 [8,] "国民"   "党"       "平和 [4]" "共産"       "福祉"    
 [9,] "投票"   "体制"     "消費 [2]" "自民党"     "県"      
[10,] "選ぶ"   "東欧"     "公約"     "平和 [4]"   "農村"    
[11,] "政党"   "消費 [2]" "反対"     "暮らし [2]" "反対"    
[12,] "有権者" "平和 [4]" "選挙"     "憲法"       "阻止"    
[13,] "国会"   "共産"     "主人公"   "雇用"       "輸入"    
[14,] "導入"   "税 [2]"   "政党"     "進める"     "生産"    
[15,] "公選"   "守る"     "目指す"   "守る"       "政策"    
[[1]]


[[2]]


[[3]]

Standard LDA

get_lda_result(doc_folder, seed_list, iter_num, k=100, showtop=T)
      1        2      3        4        5      6    7      8            9
1    県     ひと   制度     作る   目指す   環境 企業   世界         政権
2  農業       心   介護   進める     実現   地球 中小   平和         交代
3  県民     大切   医療     日本     社会   自然 金融   国際       民主党
4  全国     社会   年金     国民     高齢   保全 零細   外交         実現
5    北     人間   保険   新しい     公正   世界 まち   貢献       自民党
6  宮崎     教育   保障     社会     確立     水 商店 アジア       変える
7  青森   生きる   安心     改革     安心     緑 活性   日本         日本
8  豊か   育てる   充実       力     福井   豊か 経営   関係         国民
9  長崎     共に   確立   改める 暮らせる   人間 融資   積極         政策
10 県内   支える   確保     守る     教育 美しい 雇用   国連         選択
11 山形     基本   導入   強める     環境   破壊 支援   安全         連立
12 福島 思いやり   高齢     世界     公平   大切 保証   諸国         作る
13 努力     精神   公的   増やす   ひらく   生活 経済   協力 マニフェスト
14 発展     家族 見直し ひろげる     制度   守る 政府   信頼       変わる
15 誘致     幸せ   家族       国     正義   保護 予算     国         可能
         10   11       12   13     14       15     16     17   18       19
1      社会 推進     増税   税   政治     図る   必要   政治 技術     政治
2      雇用 整備     反対 消費 変える つとめる   問題   政党 産業     国民
3      産業 環境     守る 改革   日本     安定   現在   選挙 科学     生活
4      支援 確立     憲法 行政 変わる     確立   政策   保守 情報       手
5      環境 施策     庶民 規制     力     充実   状況   政界 開発 取り戻す
6      構築 社会     野党 税率 大きい   進める   将来   政策 育成     利益
7      創出 基盤   自民党 介護   動く   目指す   重要   ひと 国際     本位
8      創る 地域     改悪 法人   流れ     振興 我が国     感 研究     不信
9      安心 促進     確か 地方     票     確保   進む 有権者 人材     不在
10     教育 育成     民営 削減   約束     教育   人口   資金   力     合意
11     育成 総合     国民 料金   怒り     向上   経済   良い 教育   わかる
12     創造 積極     郵政 撤廃   正す     強化   課題 感じる 通信   本当に
13     再生 体制   共産党   up   必ず     活性   主張   体質 創造   求める
14     経済 確保     日本 契約   来る     発展   全体   権力 先端   ひらく
15 システム 農林 サービス 省庁 動かす     促進 含める   選ぶ 資源     絶対
       20       21           22       23     24     25     26       27
1    ひと     改革         年金       市     国   若い   改革     政治
2    自分     郵政         廃止     施設   日本     力   断行     信頼
3    仕事     民営         道路     実現   国家   世代   推進     清潔
4    働く     政府         削減     福祉   国民   政治   実現     誠実
5    必要     小泉           金     老人   持つ   行動   制度     信条
6  わかる     民間         補助     充実   良い 新しい 行財政     豊か
7    出る     郵便         実現       町   経済   時代   構造     姿勢
8  感じる       官         議員 センター 日本人   情熱   抜本     持つ
9    良い       民         無駄     設置   社会   世紀   税制     確立
10   知る       局         ひと     建設   誇り   挑戦     真 こたえる
11 受ける     年金         財源     健康   基本   持つ   行政     倫理
12   持つ   公務員         高速     大学   責任     歳   実行       道
13   作る     地方         無料     誘致   価値     父   大胆     歩む
14   言葉     国民       民主党     特別 改める   感覚   本当     実行
15 本当に サービス マニフェスト     地元   自分   岡山 進める     不信
         28       29     30     31       32     33     34     35     36
1      日本     豊か   労働   政治       道 新しい   社会   責任   社会
2      企業     活力   実現   改革     早期   政治   日本     国   女性
3        税     社会   制度 自民党     建設   改革   作る   持つ   男女
4      増税     推進   時間   腐敗     促進   時代     力   未来   参加
5      国民     世紀   雇用   選挙     道路   日本 自民党   将来   子供
6      消費     作り   確立     党     整備   変革   政治   日本   共同
7      基地     教育   改善   金権   自動車   創る   中心   強い   働く
8      優先       心   働く   防止     完成   古い   守る   必要   参画
9      政治     創造   生活   政権     事業   歴史   事業   勇気 目指す
10     福祉     福祉   制定   制度     空港   決意     森 果たす   福祉
11 ストップ     健康   年金   支配     国道   行動   首相   信頼   実現
12     医療     育成   条件 新しい     開発   挑戦   消費     感   障害
13   共産党   青少年   拡大     派   新幹線   新党   ひと   役割   高齢
14     民主 生きがい   充実   制定 バイパス   流れ   政府     力 優しい
15     反対     個性 パート   事件     着工 起こす   経済   国民   家庭
         37     38       39     40       41     42   43     44     45   46
1        税     円     支援   都市     日本   国会 不安   事業   医療 主義
2      平和   国民     保育   東京   共産党   議員 年金   公共   支援 自由
3      消費   医療   子育て     圏     国民   法案 社会     国   雇用 民主
4      保障   政権     制度   国際     消費   成立 雇用   教育   介護 社会
5      社会     費     充実   大阪       税   立法 将来   ひと     金 世界
6      年金   自公     拡充   実現     増税 衆議院 安心   予算   保障 体制
7  アメリカ     兆     介護   構想     民主   年間 生活   投資   安心 平和
8      企業     税     児童   首都 つらぬく   改正 解消     費   制度 政治
9      増税   高齢     医療   時代     反対     案 失業   転換 子育て 経済
10     雇用   消費     年金 目指す     企業   法律 老後   学校   成長 確立
11   なくす   派遣     安心   文化       党   削減 介護   拡大   強化 守る
12     政治 主人公     ゼロ   機能   やめる   提出 ひと   雇用   対策 国家
13     いい   軍事     育児   中心     自由   提案 医療   必要   解消 選択
14     日本   保障 サービス   福祉     守る   定数 犯罪   年金   再生 東欧
15     独立   雇用     障害   集中   主人公   活動 倒産 進める   削減 国民
       47     48       49     50     51     52       53     54     55
1    農林   農業     福祉   教育   整備   希望     日本   故郷   選挙
2    漁業   自給     充実   子供     線     夢     社会   豊か     区
3    産業     率     医療   学校   交通 持てる     国民   郷土     票
4    水産   食糧     教育   個性   道路   ひと       国   作り 自民党
5    振興   食料     実現   家庭   都市   働く     保障     心   代表
6      農   向上     高齢   制度   推進   社会     政府   世紀   候補
7    工業   安全     社会     心     駅   若者     政治   活力   比例
8    地場   農家     図る イジメ   建設   実現     改革   住む   投票
9  北海道   生産     年金 育てる   促進   子供   目指す     愛   支持
10     商   輸入     施設   福祉   実現     汗   暮らし   発展   議員
11   林業 高める     障害 のばす     網   未来     経済   明日   問う
12   秋田   農政     健康   教師   解消 年寄り     良い   時代 有権者
13   農業 農産物 サービス     値 下水道   安心       歩   創る   選ぶ
14   生産   供給     在宅   偏差 地下鉄   作る アメリカ 明るい   是非
15   図る   価格     保健   大切   早期   報う     企業 愛する 衆議院
         56       57         58     59       60       61     62     63
1  つとめる       税       守る   基地     安心     作り   対策   減税
2      整備     消費       予算     米     子供     まち   企業     円
3      振興     憲法     暮らし   沖縄     元気   進める   中小   拡大
4      郷土     増税       保障   実現     未来       国   推進   大型
5      充実   暮らし       政治     軍     社会     ひと   強化   不況
6      図る     改悪     自民党   利用 暮らせる     地域   制度   内需
7      努力 アメリカ     ルール   県民     作る     強い   充実   間接
8      改善   自民党       介護   縮小   育てる     商店   拡充   大幅
9      発展     平和       憲法   建設 取り戻す     支援   実施 中曽根
10     福祉     保障       公共   開発     老後     住む   支援     税
11     育成     守る       社会   返還     環境     教育   改善   反対
12     道路   共産党       事業 目指す   子育て     災害 進める   教育
13     開発       条       規制   振興     活力     京都   緊急   対策
14     地場     応援     共産党   安保     創る     環境   政策   所得
15     婦人   民主党 切り替える     島     育つ 取り組む   措置   導入
       64       65       66   67       68         69         70       71
1      税     景気     政治   円     世紀       消費       環境     政策
2    消費     回復     立つ   兆     社会         税 エネルギー     経済
3    廃止     対策     立場 ひと     時代       廃止       社会     教育
4  自民党     経済     庶民 年間   新しい       税制       自然     基本
5    自由 取り組む     先頭   国     高齢       政治       資源     実現
6    輸入     安定     ひと 年金     対応     自民党       もの     重点
7    政治     世紀     弱い 所得   ひらく       選挙 リサイクル     改革
8    コメ     高齢   目指す 予算   向ける     社会党       地球     実行
9    国民     信頼     福祉 借金   求める     不公平       政策     確立
10   阻止     実行 がんばる 現在 システム リクルート       教育     生活
11   献金     本格     弱者   費   迎える       公正       推進     福祉
12   企業     活性     原点 年度     変化       国民       転換     置く
13   金権     教育       光 特別     新た       公平       ゴミ     転換
14   禁止   明るい     戦う 国民     課題       軍縮       廃棄 取り組む
15   団体     山梨     絶対   増 取り組む     参議院       促進     中心
       72         73     74   75     76           77     78     79     80
1    日本       年金 共産党 安全 我が国           税   日本   日本   平和
2      税       負担 自民党 対策   努力         住宅   世界   国民   憲法
3    消費       制度     費 安心   国際         減税     国   政治   人権
4    癒着         費   軍事 強化   経済         生活   経済   公約   守る
5    企業       保険   守る   食   安定         税制     力 共産党   基本
6      官       ひと   反対 災害   発展         資産 支える   守る   福祉
7      政       基礎   平和 犯罪   郷土         所得 世界一   選挙   反対
8      財       所得 暮らし 治安   繁栄         消費   先進     税   差別
9  共産党       安心     円 支援   時代         土地 誇れる   政党   戦争
10   選挙       保障 中曽根 保障   世界       非課税 日本人   平和   制定
11   流れ 引き上げる   戦争 体制   貿易         相続     柱   審判   尊重
12 新しい       医療   福祉 拉致   課題         軽減   進路     声   平等
13   反対       軽減   削る 危機   情勢         家賃   尊敬   反対   許す
14     米       給付   国会 防災   対応         固定 世界中   優先 進める
15   増税       将来   老人 確保 迎える サラリーマン リード   ノー   障害
       81   82   83       84   85       86       87   88     89     90
1    年金 日本 地方     全力 再生     文化       声 行政   増税   整備
2    制度 政治 分権   尽くす 改革     産業     国政 財政     円   道路
3      円 国民   国     実現 経済     振興   いかす 改革   憲法   交通
4    医療 福祉 中央       力 日本   いかす     経験 再建 自民党   高速
5    地域 教育 権限   あげる 可能     作り     政治 経済     税     網
6    廃止 守る 確立     約束 地方     教育     反映 政府 民主党     道
7    月額 生活 自治 がんばる   国     地域     国会 緩和   日本   観光
8    手当 医療 財源     発展 持続     伝統   届ける 規制   控除   基盤
9    子供 実現 地域     福祉 成長 スポーツ     地元 構造   守る   発展
10   無駄 規制 行政     投球 構造     自然     現場 社会   戦争   空港
11     金 環境 主権 取り組む 宣言     観光     聞く 効率   民営   振興
12   支給 復興 移譲     決意 制度     地場     働く 赤字     条 新幹線
13   最低 被災 住民     注ぐ 金融     歴史     決意 活力   改悪   産業
14   創設 再建 集権   いかす 保障     国際     香川 高齢   郵政   農林
15 子育て 阻止   州   求める 外交     豊か がんばる 健全 公明党   体系
       91     92       93     94         95       96       97           98
1  自民党   守る     市民   生活       支援     増税     問題         地域
2    企業 暮らし     情報   社会 申し上げる     日本 取り組む         経済
3    改革     命     官僚   豊か       決意     国民     解決         活性
4    国民   作る     公開   実現     心から     政治     課題         作り
5    献金   大切     参加   経済 あたたかい       税     改革     取り組む
6  共産党   国民     活動   環境         心     消費     重要           力
7    金権   平和 システム   実感       郷土   共産党     全力         生活
8    政治   約束     行政 ゆとり       国政     反対     必要         活動
9    日本   ひと     主役   大国       選挙 つらぬく     山積       いかす
10     党   医療     政治   優先     立候補     全力     戦後         住民
11   禁止   働く     共生   高齢       感謝       党   抱える         活力
12   選挙   生命     中心   政策       賜る     中心     最大         再生
13   団体   子供     社会   福祉       当選       力     努力         魅力
14   腐敗 生きる     主権   活力     力強い     作る   向ける         全体
15   憲法   仕事   民主党   築く       発展     流れ     立場 ネットワーク
         99    100
1      税金   委員
2      無駄   大臣
3      官僚     長
4    なくす   内閣
5      予算   平成
6    天下り   実績
7      使う   総理
8    変える   国会
9      使い   当選
10     年金 衆議院
11     議員     党
12     禁止   会長
13   徹底的   経験
14 無駄遣い   政策
15     必要   議員
[[1]]


[[2]]

Original Keywords

# Remove overlapping words for better comparison
topic52 <- c("農業 産業 整備 漁業 開発")
topic62 <- c("復興 連立 被災 災害 ひと")
topic63 <- c("政治 主義 自由 社会 民主")
topic20 <- c("税 消費 廃止 国民 日本")
topic58 <- c("企業 教育 中小 充実 図る")

seed_list <- list(topic52, topic62, topic63, topic20, topic58)
seed_list <- lapply(seed_list, function(x){strsplit(x, " ")[[1]]})

K = 80

# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=76)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list)
      1          2          3          4          5          T_1       
 [1,] "整備 [✓]" "ひと [✓]" "政治 [✓]" "日本 [✓]" "中小 [✓]" "日本 [4]"
 [2,] "振興"     "子供"     "国民 [4]" "党"       "企業 [✓]" "新しい"  
 [3,] "道路"     "日本 [4]" "主義 [✓]" "国民 [✓]" "図る [✓]" "作る"    
 [4,] "産業 [✓]" "作る"     "改革"     "消費 [✓]" "教育 [✓]" "改革"    
 [5,] "開発 [✓]" "働く"     "社会 [✓]" "共産"     "推進"     "地方"    
 [6,] "道"       "社会 [3]" "実現"     "政治 [3]" "充実 [✓]" "作り"    
 [7,] "図る [5]" "国"       "自由 [✓]" "税 [✓]"   "対策"     "国"      
 [8,] "農林"     "大切"     "信頼"     "守る"     "進める"   "進める"  
 [9,] "交通"     "心"       "目指す"   "増税"     "福祉"     "政治 [3]"
[10,] "推進"     "教育 [5]" "民主 [✓]" "選挙"     "社会 [3]" "国民 [4]"
[11,] "漁業 [✓]" "守る"     "生活"     "自民党"   "改革"     "世界"    
[12,] "地域"     "自分"     "福祉"     "民主 [3]" "確立"     "国際"    
[13,] "促進"     "人間"     "全力"     "やめる"   "安定"     "す"      
[14,] "農業 [✓]" "仕事"     "守る"     "進める"   "振興"     "活力"    
[15,] "発展"     "命"       "確立"     "企業 [5]" "制度"     "分権"    
      T_2            T_3        T_4        T_5        T_6       
 [1,] "年金"         "国際"     "日本 [4]" "産業 [1]" "改革"    
 [2,] "円"           "環境"     "安全"     "地域"     "郵政"    
 [3,] "廃止 [4]"     "平和"     "国"       "技術"     "民営"    
 [4,] "兆"           "世界"     "安心"     "日本 [4]" "郵便"    
 [5,] "改革"         "社会 [3]" "教育 [5]" "作り"     "民間"    
 [6,] "実現"         "生活"     "保障"     "教育 [5]" "局"      
 [7,] "無駄"         "地球"     "年金"     "社会 [3]" "政府"    
 [8,] "削減"         "貢献"     "外交"     "経済"     "小泉"    
 [9,] "政権"         "政治 [3]" "問題"     "情報"     "官"      
[10,] "保険"         "国"       "制度"     "環境"     "年金"    
[11,] "増税"         "改革"     "守る"     "新しい"   "国民 [4]"
[12,] "一元化"       "政策"     "再生"     "科学"     "実現"    
[13,] "金"           "経済"     "国民 [4]" "目指す"   "国"      
[14,] "サラリーマン" "推進"     "拉致"     "育成"     "制度"    
[15,] "郵政"         "外交"     "経済"     "国際"     "民"      
      T_7        T_8        T_9        T_10       T_11       T_12      
 [1,] "平和"     "国民 [4]" "日本 [4]" "税 [4]"   "問題"     "整備 [1]"
 [2,] "社会 [3]" "党"       "教育 [5]" "消費 [4]" "必要"     "建設"    
 [3,] "憲法"     "政治 [3]" "国"       "改革"     "経済"     "道路"    
 [4,] "人権"     "日本 [4]" "心"       "行政"     "日本 [4]" "促進"    
 [5,] "守る"     "政権"     "世界"     "政治 [3]" "課題"     "早期"    
 [6,] "税 [4]"   "円"       "持つ"     "税率"     "政策"     "市"      
 [7,] "目指す"   "自公"     "社会 [3]" "契約"     "取り組む" "事業"    
 [8,] "消費 [4]" "税 [4]"   "国家"     "国民 [4]" "国"       "国道"    
 [9,] "進める"   "兆"       "平和"     "反対"     "解決"     "線"      
[10,] "差別"     "軍事"     "子供"     "地方"     "地域"     "実現"    
[11,] "基本"     "実現"     "文化"     "断行"     "高齢"     "駅"      
[12,] "福祉"     "憲法"     "大切"     "実現"     "重要"     "推進"    
[13,] "制定"     "主人公"   "育てる"   "増税"     "将来"     "号線"    
[14,] "反対"     "新しい"   "伝統"     "官僚"     "我が国"   "道"      
[15,] "女性"     "中心"     "力"       "円"       "現在"     "完成"    
      T_13       T_14       T_15       T_16       T_17       T_18      
 [1,] "日本 [4]" "地方"     "党"       "都市"     "税 [4]"   "市民"    
 [2,] "国民 [4]" "地域"     "政治 [3]" "まち"     "生活"     "政治 [3]"
 [3,] "世界"     "分権"     "日本 [4]" "線"       "い"       "民主 [3]"
 [4,] "経済"     "国"       "共産"     "交通"     "素"       "官僚"    
 [5,] "生活"     "日本 [4]" "自民党"   "東京"     "晴"       "主役"    
 [6,] "国家"     "中央"     "改革"     "作り"     "し"       "党"      
 [7,] "国"       "財源"     "社会 [3]" "住宅"     "住宅"     "情報"    
 [8,] "政府"     "経済"     "国民 [4]" "実現"     "消費 [4]" "公開"    
 [9,] "政党"     "権限"     "神"       "整備 [1]" "円"       "中心"    
[10,] "政策"     "生活"     "発言"     "道路"     "家賃"     "参加"    
[11,] "ひと [2]" "制度"     "憲法"     "税 [4]"   "実現"     "行政"    
[12,] "良い"     "主権"     "首相"     "教育 [5]" "土地"     "主導"    
[13,] "アメリカ" "住民"     "森"       "推進"     "資産"     "未来"    
[14,] "世界一"   "進める"   "消費 [4]" "建設"     "減税"     "活動"    
[15,] "主義 [3]" "国民 [4]" "歩"       "区"       "非課税"   "システム"
      T_19       T_20       T_21       T_22       T_23       T_24      
 [1,] "政治 [3]" "県"       "年金"     "平和"     "基地"     "県"      
 [2,] "改革"     "秋田"     "円"       "憲法"     "沖縄"     "青森"    
 [3,] "腐敗"     "福井"     "制度"     "暮らし"   "米"       "圏"      
 [4,] "金"       "山形"     "医療"     "守る"     "平和"     "北"      
 [5,] "権"       "農業 [1]" "地域"     "反対"     "軍"       "道"      
 [6,] "実現"     "福島"     "廃止 [4]" "社会 [3]" "主義 [3]" "茨城"    
 [7,] "選挙"     "富山"     "政権"     "小泉"     "自由 [3]" "首都"    
 [8,] "制度"     "市"       "月額"     "自衛隊"   "福祉"     "栃木"    
 [9,] "防止"     "産業 [1]" "手当"     "戦争"     "世界"     "大分"    
[10,] "国民 [4]" "県民"     "子供"     "命"       "声"       "農業 [1]"
[11,] "資金"     "全国"     "無駄"     "ひと [2]" "安保"     "実現"    
[12,] "献金"     "県内"     "企業 [5]" "生活"     "貢献"     "東京"    
[13,] "企業 [5]" "米"       "交代"     "雇用"     "アジア"   "東"      
[14,] "制定"     "岐阜"     "生活"     "アメリカ" "医療"     "県民"    
[15,] "禁止"     "新幹線"   "金"       "保障"     "条約"     "自動車"  
      T_25       T_26       T_27         T_28       T_29       T_30      
 [1,] "円"       "円"       "税 [4]"     "税 [4]"   "改革"     "軍事"    
 [2,] "減税"     "増税"     "消費 [4]"   "日本 [4]" "行政"     "費"      
 [3,] "税 [4]"   "党"       "廃止 [4]"   "自由 [3]" "地方"     "守る"    
 [4,] "大型"     "税 [4]"   "政治 [3]"   "経済"     "介護"     "自民党"  
 [5,] "拡大"     "自民党"   "自民党"     "教育 [5]" "制度"     "教育 [5]"
 [6,] "中曽根"   "憲法"     "国民 [4]"   "国"       "財政"     "平和"    
 [7,] "不況"     "民主 [3]" "自由 [3]"   "国民 [4]" "国民 [4]" "医療"    
 [8,] "内需"     "控除"     "院"         "社会 [3]" "規制"     "企業 [5]"
 [9,] "間接"     "日本 [4]" "金"         "一新"     "社会 [3]" "老人"    
[10,] "反対"     "企業 [5]" "コメ"       "改める"   "税 [4]"   "なくす"  
[11,] "国民 [4]" "条"       "権"         "基礎"     "緩和"     "やめる"  
[12,] "対策"     "廃止 [4]" "リクルート" "革命"     "分権"     "民主 [3]"
[13,] "所得"     "民営"     "輸入"       "国家"     "推進"     "実現"    
[14,] "導入"     "戦争"     "腐敗"       "所得"     "福祉"     "許す"    
[15,] "中小 [5]" "郵政"     "献金"       "雇用"     "議員"     "削る"    
      T_31       T_32       T_33       T_34       T_35       T_36      
 [1,] "社会 [3]" "国民 [4]" "医療"     "政権"     "れる"     "円"      
 [2,] "保障"     "図る [5]" "制度"     "政治 [3]" "と"       "兆"      
 [3,] "政治 [3]" "安全"     "年金"     "自民党"   "教育 [5]" "事業"    
 [4,] "暮らし"   "社会 [3]" "介護"     "党"       "バランス" "ひと [2]"
 [5,] "守る"     "自給"     "充実 [5]" "新しい"   "調和"     "予算"    
 [6,] "日本 [4]" "地域"     "保育"     "選挙"     "環境"     "公共"    
 [7,] "国民 [4]" "安定"     "保険"     "国民 [4]" "家庭"     "税 [4]"  
 [8,] "予算"     "つとめる" "社会 [3]" "交代"     "問題"     "国"      
 [9,] "ルール"   "食糧"     "支援"     "改革"     "体育"     "年間"    
[10,] "介護"     "向上"     "安心"     "実現"     "知育"     "費"      
[11,] "規制"     "農業 [1]" "負担"     "作る"     "生"       "財源"    
[12,] "公共"     "率"       "子供"     "支配"     "消費 [4]" "財政"    
[13,] "事業"     "食料"     "福祉"     "社会 [3]" "青少年"   "税金"    
[14,] "雇用"     "確保"     "教育 [5]" "政策"     "徳育"     "借金"    
[15,] "企業 [5]" "保全"     "実現"     "生活"     "解決"     "無駄"    
      T_37       T_38       T_39         T_40       T_41       T_42      
 [1,] "社会 [3]" "社会 [3]" "環境"       "改革"     "政治 [3]" "憲法"    
 [2,] "実現"     "安心"     "地球"       "企業 [5]" "声"       "税 [4]"  
 [3,] "環境"     "子供"     "自然"       "党"       "力"       "消費 [4]"
 [4,] "目指す"   "作る"     "社会 [3]"   "政治 [3]" "守る"     "党"      
 [5,] "女性"     "日本 [4]" "作る"       "自民党"   "全力"     "増税"    
 [6,] "男女"     "未来"     "守る"       "国民 [4]" "国政"     "暮らし"  
 [7,] "参画"     "ひと [2]" "保全"       "金"       "国民 [4]" "日本 [4]"
 [8,] "安心"     "働く"     "エネルギー" "献金"     "暮らし"   "改悪"    
 [9,] "確立"     "実現"     "ひと [2]"   "権"       "福祉"     "平和"    
[10,] "共同"     "環境"     "豊か"       "日本 [4]" "国会"     "アメリカ"
[11,] "福祉"     "夢"       "世界"       "禁止"     "がんばる" "守る"    
[12,] "経済"     "作り"     "もの"       "憲法"     "実現"     "社会 [3]"
[13,] "雇用"     "暮らせる" "緑"         "選挙"     "庶民"     "保障"    
[14,] "改革"     "希望"     "破壊"       "腐敗"     "いかす"   "企業 [5]"
[15,] "共生"     "国"       "水"         "団体"     "生活"     "自民党"  
      T_43       T_44         T_45       T_46       T_47       T_48  
 [1,] "制度"     "税 [4]"     "企業 [5]" "政治 [3]" "党"       "県"  
 [2,] "事業"     "消費 [4]"   "まち"     "日本 [4]" "増税"     "長崎"
 [3,] "公共"     "年金"       "中小 [5]" "新しい"   "共産"     "岡山"
 [4,] "企業 [5]" "負担"       "地域"     "時代"     "税 [4]"   "離島"
 [5,] "政策"     "所得"       "元気"     "力"       "日本 [4]" "佐賀"
 [6,] "導入"     "の"         "商店"     "若い"     "企業 [5]" "水産"
 [7,] "税 [4]"   "分"         "作り"     "世紀"     "つらぬく" "市"  
 [8,] "実施"     "ひと [2]"   "活性"     "変える"   "反対"     "町"  
 [9,] "機関"     "財源"       "雇用"     "未来"     "流れ"     "県民"
[10,] "個人"     "基礎"       "支援"     "行動"     "新しい"   "振興"
[11,] "必要"     "引き上げる" "回復"     "世代"     "政治 [3]" "故郷"
[12,] "制定"     "税制"       "景気"     "変わる"   "財政"     "農林"
[13,] "金"       "国民 [4]"   "経済"     "社会 [3]" "足立"     "力"  
[14,] "規制"     "費"         "安心"     "挑戦"     "米"       "若者"
[15,] "基本"     "国庫"       "再生"     "持つ"     "作る"     "島"  
      T_49       T_50       T_51       T_52       T_53       T_54      
 [1,] "選挙"     "農業 [1]" "ゼ"       "アジア"   "増税"     "政治 [3]"
 [2,] "区"       "漁業 [1]" "ロ"       "外交"     "守る"     "ひと [2]"
 [3,] "党"       "自給"     "支援"     "関係"     "党"       "国民 [4]"
 [4,] "院"       "率"       "実現"     "世界"     "憲法"     "政策"    
 [5,] "自民党"   "農家"     "削減"     "平和"     "反対"     "選挙"    
 [6,] "民主 [3]" "食糧"     "議員"     "諸国"     "庶民"     "自分"    
 [7,] "代表"     "農林"     "子育て"   "進める"   "野党"     "持つ"    
 [8,] "衆議"     "農"       "医療"     "米"       "確か"     "議員"    
 [9,] "比例"     "輸入"     "充実 [5]" "日本 [4]" "自民党"   "声"      
[10,] "議員"     "守る"     "雇用"     "地域"     "日本 [4]" "問題"    
[11,] "票"       "食料"     "公務員"   "支援"     "国民 [4]" "必要"    
[12,] "候補"     "所得"     "成長"     "改革"     "改悪"     "国政"    
[13,] "国会"     "制度"     "環境"     "友好"     "民営"     "投票"    
[14,] "議席"     "生産"     "ひと [2]" "力"       "共産"     "責任"    
[15,] "政党"     "向上"     "国会"     "アメリカ" "郵政"     "政党"    
      T_55       T_56       T_57       T_58         T_59       T_60      
 [1,] "道路"     "不安"     "世界"     "政治 [3]"   "平和"     "景気"    
 [2,] "年金"     "年金"     "社会 [3]" "支援"       "守る"     "犯罪"    
 [3,] "政権"     "ひと [2]" "日本 [4]" "申し上げる" "政治 [3]" "危機"    
 [4,] "ひと [2]" "介護"     "自由 [3]" "心"         "福祉"     "対策"    
 [5,] "実現"     "失業"     "経済"     "徳島"       "憲法"     "回復"    
 [6,] "廃止 [4]" "保険"     "平和"     "決意"       "図る [5]" "少年"    
 [7,] "削減"     "負担"     "国際"     "国政"       "生活"     "管理"    
 [8,] "高速"     "医療"     "時代"     "選挙"       "実現"     "安全"    
 [9,] "金"       "国民 [4]" "努力"     "あたたかい" "軍縮"     "凶悪"    
[10,] "議員"     "率"       "我が国"   "心から"     "防衛"     "日本 [4]"
[11,] "無料"     "老後"     "豊か"     "郷土"       "教育 [5]" "崩壊"    
[12,] "事業"     "安心"     "世紀"     "西"         "費"       "青少年"  
[13,] "補助"     "雇用"     "安定"     "改革"       "目指す"   "不況"    
[14,] "民主 [3]" "制度"     "国"       "力強い"     "暮らし"   "増加"    
[15,] "財源"     "将来"     "改革"     "こたえる"   "年金"     "バブル"  
      T_61       T_62       T_63       T_64       T_65       T_66      
 [1,] "政権"     "党"       "景気"     "地域"     "大阪"     "政治 [3]"
 [2,] "税金"     "共産"     "回復"     "安心"     "作り"     "改革"    
 [3,] "無駄"     "民"       "改革"     "安全"     "都市"     "自民党"  
 [4,] "交代"     "日本 [4]" "社会 [3]" "支援"     "まち"     "日本 [4]"
 [5,] "変える"   "国民 [4]" "対策"     "作り"     "文化"     "選挙"    
 [6,] "政治 [3]" "政治 [3]" "全力"     "対策"     "推進"     "新しい"  
 [7,] "官僚"     "戦争"     "教育 [5]" "推進"     "国際"     "政党"    
 [8,] "日本 [4]" "反対"     "取り組む" "改革"     "実現"     "新党"    
 [9,] "年金"     "自民党"   "経済"     "再生"     "鹿児島"   "政界"    
[10,] "なくす"   "円"       "実現"     "食"       "交流"     "党"      
[11,] "民主 [3]" "主権"     "高齢"     "社会 [3]" "日本 [4]" "実現"    
[12,] "国民 [4]" "社"       "安心"     "子育て"   "市"       "派"      
[13,] "作る"     "暮らし"   "制度"     "制度"     "目指す"   "地方"    
[14,] "天下り"   "在"       "推進"     "環境"     "空港"     "責任"    
[15,] "党"       "平和"     "雇用"     "医療"     "神戸"     "政権"    
      T_67       T_68     T_69         T_70       T_71   T_72    
 [1,] "長"       "金"     "支援"       "教育 [5]" "国会" "和歌山"
 [2,] "委員"     "実現"   "申し上げる" "子供"     "議員" "名古屋"
 [3,] "大臣"     "年金"   "選挙"       "福祉"     "法案" "空港"  
 [4,] "宮崎"     "制度"   "郷土"       "学校"     "院"   "故郷"  
 [5,] "教育 [5]" "住宅"   "努力"       "個性"     "委員" "経済"  
 [6,] "内閣"     "支援"   "院"         "イジメ"   "衆議" "力"    
 [7,] "自民党"   "拡充"   "衆議"       "実現"     "立法" "実現"  
 [8,] "政策"     "特別"   "当選"       "心"       "成立" "国際"  
 [9,] "国"       "老人"   "決意"       "高齢"     "問題" "情熱"  
[10,] "党"       "ホーム" "心から"     "充実 [5]" "提出" "建設"  
[11,] "会長"     "奈良"   "立候補"     "値"       "改正" "中央"  
[12,] "政治 [3]" "養護"   "発展"       "偏差"     "案"   "中部"  
[13,] "世紀"     "費"     "あたたかい" "制度"     "質問" "燃える"
[14,] "選挙"     "円"     "心"         "世紀"     "法律" "造り"  
[15,] "立つ"     "増額"   "議員"       "家庭"     "当選" "住む"  
      T_73       T_74     T_75       T_76      
 [1,] "医療"     "経験"   "改革"     "作り"    
 [2,] "円"       "いかす" "財政"     "豊か"    
 [3,] "高齢"     "国政"   "日本 [4]" "社会 [3]"
 [4,] "企業 [5]" "地元"   "経済"     "政治 [3]"
 [5,] "制度"     "働く"   "構造"     "世紀"    
 [6,] "保障"     "政策"   "行政"     "地域"    
 [7,] "派遣"     "議員"   "社会 [3]" "心"      
 [8,] "雇用"     "国際"   "政府"     "福祉"    
 [9,] "労働"     "父"     "民間"     "故郷"    
[10,] "無料"     "県"     "再建"     "目指す"  
[11,] "後期"     "努力"   "金融"     "郷土"    
[12,] "費"       "若い"   "国"       "活力"    
[13,] "廃止 [4]" "国会"   "進める"   "時代"    
[14,] "最低"     "行政"   "目指す"   "生活"    
[15,] "金"       "先生"   "官"       "実現"    
[[1]]


[[2]]


[[3]]

Standard LDA

get_lda_result(doc_folder, seed_list, iter_num, k=80, showtop=T)
        1        2      3      4    5    6          7        8    9   10
1    地域     対策   社会   地方 社会 行政       環境     子供 安全 年金
2    再生     図る   保障   分権 女性 改革       地球     安心 対策 制度
3    経済     振興   日本   地域 環境 規制       自然     社会 安心   円
4    活性     改善 暮らし     国 働く 緩和       保全     未来 保障 医療
5    元気 つとめる   予算   中央 男女 法人 エネルギー     元気 強化 地域
6    産業     充実 自民党   権限 参加 省庁       社会     希望   食 廃止
7    支援     推進   憲法   自治 実現 地方         水     作る 再生 手当
8    構築     企業   守る   財源 高齢 介護       資源       夢 犯罪   金
9  支える     福祉   政治   確立 共同 断行     美しい   育てる 治安 無駄
10   雇用     中小 ルール   制度 参画 削減       循環 暮らせる 災害 月額
11   創出     開発   規制   主権 育児 責任 リサイクル   持てる 制度 子供
12   自立     促進   国民   自立 労働 大胆       保護     老後 拉致 最低
13   観光     努力   事業   住民 福祉 撤廃     優しい     日本 外交 主権
14   社会     育成 共産党 市町村 子供 行革       破壊     若者 教育 補償
15   環境     事業   介護   集権 家庭 官僚         緑 取り戻す 体制 創設
     11   12     13     14     15         16       17   18       19   20
1  政治 財政   基地   日本 新しい       年金     日本 都市     文化 企業
2  腐敗 経済     米     国   時代       負担     国民   線     国際 中小
3  改革 行政   沖縄   国家   世紀       制度   共産党   市     都市 支援
4  実現 社会     軍   教育 ひらく       保険     守る 実現     作り 雇用
5  制度 改革 目指す   基本 目指す       ひと     民主 整備     推進 制度
6  防止 再建   企業   経済   社会       保障       税   駅 スポーツ 事業
7  金権 政府   医療   持つ 向ける       医療       声 建設     交流 金融
8  選挙 構造   県民 日本人   未来         費     消費 推進     大阪 経営
9  制定 高齢   平和   社会 求める       所得     政治 促進     振興 零細
10 資金 成長   守る   国民   挑戦       基礎     公約 交通     育成 経済
11 確立 効率   安保   歴史 迎える       軽減     反対 早期     空港 融資
12 生活 赤字   福祉   家族   対応 引き上げる     政党 東京   いかす 商店
13 献金 世代 進める   責任   変革       介護   やめる 解消     伝統 公共
14 事件 将来   充実   良い   創る       国庫 つらぬく 道路     産業 保証
15 強化 国家   利用   誇り   行動       給付   目指す   町       圏 予算
         21     22       23     24     25     26   27   28       29
1        心 自民党       税   政治     力     県 政治 技術     守る
2      社会   改革     消費   政党   若い   農業 信頼 産業   暮らし
3      豊か   政治     所得   体質 いかす   県民 清潔 情報       命
4      人間   政権     税制 わかる   経験   発展 豊か 育成     国民
5      教育 新しい     税率   保守   世代   産業 信条 科学     企業
6      大切   選挙     福祉   良い   行動   全国 持つ 開発     平和
7      福祉     党     国民   不信   時代     北 誠実 教育     約束
8      世紀   政党   見直し   政界   情熱 日本海 立つ 研究     医療
9    育てる   支配     反対   正す   国政   図る 努力 国際 がんばる
10 思いやり   交代 引き上げ     感   世紀   青森 姿勢 推進     許す
11     文化   政界     是正 かかる   持つ   地元 立場 創造     子供
12     自然   連立     負担   自身   秋田   福井 共に 環境     大切
13       愛     派   不公平   利益   福祉   山形 原点 人材     中小
14   生きる   内閣     住民   岡山   地元     圏   汗 通信     働く
15     個性   勢力       品   自分   実行   福島   道 整備     優先
         30           31     32     33       34       35       36       37
1      政権         年金   故郷   減税     医療     作る     ひと     図る
2      税金           円   豊か     円     制度     日本     自分 つとめる
3      交代         廃止   活力   拡大     介護   進める     持つ     充実
4      無駄         実現   作り   不況     充実     国民     育つ   進める
5    変える         無駄   郷土   大型     福祉   新しい   感じる     振興
6      官僚           兆   世紀   内需     年金       国     子供     教育
7    民主党           金 溢れる   対策     保険     守る     仕事     安定
8    なくす         削減   発展   大幅     高齢     約束       父     実現
9    天下り         改革     夢   間接     支援       力     先生   目指す
10     使い         制度     心 中曽根     障害     抜本     知る     確立
11     使う         子供   住む   反対 サービス 合わせる 生まれる     産業
12     癒着       一元化   創造   所得     体制       柱     良い     福祉
13 しがらみ         ひと   明日     税     施設   強める     京都     育成
14     必要 サラリーマン   文化   導入     保障     合意       心     地域
15   変わる         地域   魅力   平和     健康   改める     働く     活性
         38       39     40       41     42     43       44   45     46
1      ひと   目指す   必要     整備   議員   農林     政治 推進   増税
2      働く     実現   問題     交通   国会   漁業     日本 対策   憲法
3      作る     社会   現在     生活   法案   水産   変える 整備 自民党
4      大切     高齢   政策     地域   成立   振興   変わる 社会   反対
5        国     福祉   状況       網   立法   産業       力 確立   守る
6    年寄り     安心   進む     道路   改正   地場   新しい 強化   庶民
7      弱い     生活   経済     基盤 衆議院   観光     流れ 確保   改悪
8        力 暮らせる   重要     豊か   年間   工業   大きい 支援   民営
9  がんばる     公正   最大     充実   首相 北海道     国民 施策   野党
10     必要     活力   議論     環境   活動     農     立つ 総合   郵政
11     立場     公平   主張     発展   法律   地域     動く 促進   確か
12   生きる     充実   将来     福祉   提案   福祉     約束 安定   日本
13   まじめ     教育   人口 取り組む     案   林業     怒り 積極   戦争
14     大事     図る   得る     体系   政府     県     戦う 体制 共産党
15   支える     信頼 我が国     作り   定数   宮崎 チャンス 図る     条
       47     48     49     50     51     52     53       54     55     56
1    住宅   責任   作り 共産党     税   企業 我が国     問題   改革     円
2      税     国   まち 自民党   消費 自民党   努力 取り組む   推進   国民
3    生活   持つ     国     費   廃止   改革   国際     解決   実現   政権
4    減税   未来 進める   軍事 自民党   国民   社会     課題   断行   医療
5    土地     力   環境   反対   政治   献金   経済     環境   教育     費
6    資産   日本   教育     円   自由 共産党   安定     重要   構造     兆
7    実現   強い   地域   平和   輸入   日本   発展     全力 行財政   自公
8    老人   創る   安心 暮らし   国民     党   世紀     教育   制度     税
9    相続   必要   商店 中曽根   コメ   金権   世界     高齢   抜本   派遣
10 パート     感   ひと   戦争   阻止   政治   時代     改革   税制   高齢
11   軽減   信頼   活動   削る   企業   禁止   対応     立つ   実行   保障
12 非課税   勇気   強い やめる   献金   選挙   課題     立場     真   軍事
13   実施   将来   住む   教育   団体   団体   繁栄     社会   行政 主人公
14   固定 果たす 目指す   老人   禁止   憲法   重要     戦後 見直し   労働
15   家賃   良い   安全 イジメ   国会     区   貿易   抱える 進める   財源
     57   58       59     60       61       62     63     64     65
1  政策   円     憲法   教育     景気     全力   選挙   世界   道路
2  生活   兆     消費   子供     回復   尽くす     区   平和   年金
3  経済 事業       税   学校     対策       力     票   国際     金
4  実現 公共     増税   社会     経済     実現   代表   外交   補助
5  社会 ひと アメリカ   福祉     社会   あげる   ひと   貢献   削減
6  基本 予算     改悪   家庭     安定 がんばる   候補 アジア   廃止
7  教育 年間   暮らし   個性 取り組む     約束   比例   日本   議員
8  重点 財源   自民党   制度     高齢     福祉   政党   関係   ひと
9  確立   国     平和   確立     雇用     守る 自民党   協力   高速
10 優先   費     保障 イジメ     世紀     投球   政策   国連   事業
11 環境 無駄     反対     心     不況 合わせる   是非   積極   公共
12 置く 使う     いい   徳島     実行     医療   投票     国   財源
13 中心 税金     社会   大切     信頼   求める   選択   信頼   無料
14 転換 負担   民主党   重視     危機   入れる 有権者   諸国   基礎
15 高齢 借金   共産党 のばす     本格     中小   選ぶ 進める 民主党
           66       67     68       69   70       71     72   73   74
1        消費     市民   支援     政治 平和     国民     道 農業 不安
2          税     社会 子育て       声 憲法     政治   整備 自給 年金
3        政治     情報   保育     国政 人権     生活   早期   率 安心
4        廃止     参加   医療     反映 守る       手   道路 食糧 雇用
5        税制     公開   雇用     庶民 福祉 取り戻す 自動車 食料 社会
6      自民党     活動   拡充     国会 反対     実現   建設 向上 医療
7        国民 システム   充実   いかす 労働     本位   促進 安全 介護
8        選挙     官僚   介護     約束 基本   求める   完成 農家 将来
9  リクルート     主役     金 がんばる 差別     絶対   空港 安定 制度
10     不公平     共生   児童   届ける 生活     不在   高速 生産 保障
11         党     中心   安心       力 戦争     利益 新幹線 輸入 解消
12       公正     主導   対策     福祉 制定     優先   事業 確立 老後
13       政権     行政   ゼロ     聞く 許す     日本   国道 確保 生活
14       公平   民主党   制度     決意 権利     戻す   地域 経営 失業
15     社会党     自立   解消 取り戻す 尊重   支える     南 守る 経済
       75         76       77   78     79     80
1    日本       支援     日本 主義   改革   委員
2    世界 申し上げる     増税 自由   民営   大臣
3    経済       郷土   共産党 民主   郵政     長
4      国       決意     消費 社会   小泉   平成
5      力 あたたかい       税 政治   民間   政策
6    大国         心     反対 国民   政府   内閣
7      道     心から       党 平和     官   実績
8  目指す       発展     国民 世界   郵便   国会
9  支える       国政     企業 体制     民   予算
10 世界一     立候補 つらぬく 経済   構造   議員
11   将来       選挙     流れ 日本     局   会長
12   先進       感謝     財政 確立     国 衆議院
13   進む       当選     選挙 資本   資金   当選
14 誇れる       賜る   主人公 守る   法人   総理
15   改革     力強い     政治 国家 公務員     党
[[1]]


[[2]]

K = 100

# SeededLDA eight keywords
model <- create_model(docs, seed_list, extra_k=96)
res <- topicdict_train(model, iter = iter_num)
count_appearence_list(tidy_seededlda_out(model, res, show=T), seed_list)
      1          2          3          4          5          T_1       
 [1,] "整備 [✓]" "ひと [✓]" "政治 [✓]" "政治 [3]" "企業 [✓]" "政治 [3]"
 [2,] "道路"     "政治 [3]" "国民 [4]" "税 [✓]"   "中小 [✓]" "腐敗"    
 [3,] "産業 [✓]" "守る"     "改革"     "消費 [✓]" "教育 [✓]" "改革"    
 [4,] "地域"     "働く"     "実現"     "国民 [✓]" "図る [✓]" "実現"    
 [5,] "道"       "作る"     "目指す"   "日本 [✓]" "対策"     "政権"    
 [6,] "農業 [✓]" "子供"     "生活"     "廃止 [✓]" "充実 [✓]" "金"      
 [7,] "振興"     "大切"     "民主 [✓]" "党"       "制度"     "自民党"  
 [8,] "促進"     "声"       "信頼"     "守る"     "進める"   "権"      
 [9,] "図る [5]" "命"       "声"       "作る"     "福祉"     "新しい"  
[10,] "交通"     "生きる"   "確立"     "自民党"   "支援"     "選挙"    
[11,] "早期"     "生活"     "新しい"   "力"       "雇用"     "党"      
[12,] "高速"     "人間"     "社会 [✓]" "選挙"     "政策"     "生活"    
[13,] "推進"     "立場"     "福祉"     "民主 [3]" "景気"     "支配"    
[14,] "網"       "年寄り"   "力"       "全力"     "まち"     "防止"    
[15,] "発展"     "家族"     "守る"     "反対"     "経済"     "作る"    
      T_2        T_3        T_4        T_5          T_6        T_7       
 [1,] "改革"     "道路"     "医療"     "税 [4]"     "日本 [4]" "改革"    
 [2,] "景気"     "年金"     "雇用"     "消費 [4]"   "地域"     "郵政"    
 [3,] "社会 [3]" "高速"     "支援"     "税制"       "安心"     "民営"    
 [4,] "回復"     "金"       "対策"     "廃止 [4]"   "社会 [3]" "小泉"    
 [5,] "財政"     "ひと [2]" "地域"     "不公平"     "子供"     "構造"    
 [6,] "行政"     "実現"     "介護"     "社会 [3]"   "元気"     "政府"    
 [7,] "経済"     "無料"     "子育て"   "福祉"       "未来"     "官"      
 [8,] "実現"     "補助"     "金"       "見直し"     "作る"     "民間"    
 [9,] "推進"     "削減"     "安心"     "リクルート" "作り"     "制度"    
[10,] "構造"     "廃止 [4]" "充実 [5]" "是正"       "経済"     "年金"    
[11,] "高齢"     "政権"     "推進"     "公正"       "暮らせる" "民"      
[12,] "対策"     "議員"     "守る"     "公平"       "実現"     "日本 [4]"
[13,] "規制"     "公共"     "実現"     "軍縮"       "国"       "自民党"  
[14,] "制度"     "事業"     "年金"     "年金"       "環境"     "推進"    
[15,] "実行"     "財源"     "制度"     "時代"       "まち"     "社会 [3]"
      T_8        T_9        T_10       T_11     T_12       T_13      
 [1,] "基地"     "政治 [3]" "党"       "地方"   "国"       "主義 [3]"
 [2,] "増税"     "新しい"   "日本 [4]" "分権"   "社会 [3]" "自由 [3]"
 [3,] "企業 [5]" "日本 [4]" "共産"     "改革"   "日本 [4]" "社会 [3]"
 [4,] "目指す"   "改革"     "増税"     "地域"   "国民 [4]" "民主 [3]"
 [5,] "民主 [3]" "地方"     "自由 [3]" "国"     "責任"     "世界"    
 [6,] "主義 [3]" "変える"   "企業 [5]" "中央"   "政策"     "経済"    
 [7,] "献金"     "徳島"     "やめる"   "行政"   "国家"     "体制"    
 [8,] "癒着"     "時代"     "民主 [3]" "制度"   "地域"     "日本 [4]"
 [9,] "進める"   "新党"     "つらぬく" "権限"   "基本"     "米"      
[10,] "自民党"   "変革"     "平和"     "進める" "保障"     "東欧"    
[11,] "優先"     "分権"     "守る"     "財源"   "持つ"     "政党"    
[12,] "ひらく"   "行政"     "目指す"   "実現"   "可能"     "諸国"    
[13,] "充実 [5]" "新生"     "進める"   "住民"   "改革"     "資本"    
[14,] "移転"     "作る"     "主人公"   "経済"   "経済"     "選択"    
[15,] "医療"     "古い"     "主義 [3]" "確立"   "必要"     "共産"    
      T_14       T_15       T_16   T_17       T_18         T_19      
 [1,] "増税"     "社会 [3]" "委員" "政治 [3]" "環境"       "党"      
 [2,] "アメリカ" "う"       "長"   "守る"     "地球"       "平和"    
 [3,] "暮らし"   "実現"     "大臣" "保障"     "自然"       "年金"    
 [4,] "憲法"     "報"       "予算" "予算"     "保全"       "の"      
 [5,] "社会 [3]" "汗"       "平成" "暮らし"   "エネルギー" "消費 [4]"
 [6,] "政治 [3]" "目指す"   "対策" "社会 [3]" "社会 [3]"   "献金"    
 [7,] "税 [4]"   "働く"     "会長" "規制"     "問題"       "ルール"  
 [8,] "保障"     "夢"       "国"   "保険"     "もの"       "日本 [4]"
 [9,] "改悪"     "まじめ"   "実績" "介護"     "教育 [5]"   "国"      
[10,] "平和"     "ひと [2]" "内閣" "子供"     "廃棄"       "民主 [3]"
[11,] "企業 [5]" "努力"     "党"   "中小 [5]" "循環"       "政党"    
[12,] "いい"     "持てる"   "政策" "企業 [5]" "資源"       "負担"    
[13,] "応援"     "希望"     "国会" "ルール"   "開発 [1]"   "税 [4]"  
[14,] "守る"     "安心"     "当選" "雇用"     "リサイクル" "いい"    
[15,] "なり"     "山梨"     "調査" "大型"     "対策"       "企業 [5]"
      T_20       T_21       T_22       T_23       T_24       T_25      
 [1,] "社会 [3]" "日本 [4]" "い"       "政権"     "削減"     "市民"    
 [2,] "事業"     "国民 [4]" "素"       "党"       "議員"     "政治 [3]"
 [3,] "日本 [4]" "社会 [3]" "し"       "民主 [3]" "国会"     "官僚"    
 [4,] "万博"     "党"       "晴"       "交代"     "無駄"     "行政"    
 [5,] "党"       "自民党"   "文化"     "自民党"   "天下り"   "民主 [3]"
 [6,] "景気"     "共産"     "生活"     "政策"     "法人"     "主役"    
 [7,] "作る"     "国"       "豊か"     "政治 [3]" "行政"     "党"      
 [8,] "自民党"   "改革"     "清"       "国民 [4]" "官僚"     "情報"    
 [9,] "力"       "暮らし"   "長崎"     "日本 [4]" "公務員"   "中心"    
[10,] "憲法"     "憲法"     "高齢"     "政党"     "改革"     "未来"    
[11,] "首相"     "教育 [5]" "圏"       "実現"     "定数"     "公開"    
[12,] "県民"     "新しい"   "自然"     "選挙"     "税金"     "改革"    
[13,] "政府"     "平和"     "充実 [5]" "新しい"   "社会 [3]" "システム"
[14,] "共産"     "事業"     "伝統"     "変える"   "禁止"     "主導"    
[15,] "歩"       "サービス" "手"       "選択"     "特殊"     "実現"    
      T_26   T_27       T_28         T_29       T_30       T_31      
 [1,] "国政" "技術"     "負担"       "円"       "県"       "日本 [4]"
 [2,] "問題" "日本 [4]" "年金"       "政権"     "農林"     "問題"    
 [3,] "市民" "産業 [1]" "制度"       "医療"     "県民"     "経済"    
 [4,] "市"   "作り"     "税 [4]"     "費"       "青森"     "社会 [3]"
 [5,] "国会" "力"       "所得"       "兆"       "産業 [1]" "課題"    
 [6,] "横浜" "科学"     "保険"       "自公"     "漁業 [1]" "必要"    
 [7,] "声"   "世界"     "費"         "企業 [5]" "奈良"     "世界"    
 [8,] "千葉" "教育 [5]" "医療"       "高齢"     "振興"     "国"      
 [9,] "実績" "経済"     "保障"       "党"       "北"       "政策"    
[10,] "追及" "情報"     "ひと [2]"   "憲法"     "佐賀"     "取り組む"
[11,] "議員" "環境"     "国民 [4]"   "制度"     "地場"     "国際"    
[12,] "力"   "地域"     "基礎"       "共産"     "工業"     "我が国"  
[13,] "県"   "育成"     "軽減"       "保障"     "全国"     "世紀"    
[14,] "政府" "新しい"   "分"         "派遣"     "商"       "解決"    
[15,] "水"   "目指す"   "引き上げる" "雇用"     "中小 [5]" "求める"  
      T_32       T_33       T_34       T_35         T_36       T_37    
 [1,] "政策"     "党"       "政治 [3]" "支援"       "平和"     "院"    
 [2,] "生活"     "増税"     "持つ"     "申し上げる" "憲法"     "衆議"  
 [3,] "日本 [4]" "共産"     "力"       "政治 [3]"   "守る"     "議員"  
 [4,] "重点"     "政治 [3]" "問題"     "選挙"       "社会 [3]" "選挙"  
 [5,] "対策"     "国民 [4]" "若い"     "心"         "福祉"     "国会"  
 [6,] "景気"     "中心"     "未来"     "あたたかい" "反対"     "参議"  
 [7,] "高齢"     "変える"   "勇気"     "心から"     "人権"     "衆"    
 [8,] "福祉"     "ひと [2]" "国政"     "決意"       "目指す"   "自民党"
 [9,] "都市"     "自民党"   "行動"     "福祉"       "戦争"     "区"    
[10,] "入れる"   "税 [4]"   "情熱"     "全力"       "生活"     "法案"  
[11,] "東京"     "目指す"   "時代"     "尽くす"     "暮らし"   "定数"  
[12,] "整備 [1]" "力"       "政策"     "実現"       "差別"     "委員"  
[13,] "施設"     "政権"     "国"       "院"         "教育 [5]" "力"    
[14,] "的"       "企業 [5]" "決意"     "国政"       "労働"     "選"    
[15,] "回復"     "主人公"   "挑戦"     "賜る"       "実現"     "当選"  
      T_38       T_39       T_40   T_41   T_42       T_43       T_44    
 [1,] "議員"     "地域"     "京都" "推進" "県"       "改革"     "人口"  
 [2,] "国会"     "農林"     "庶民" "国際" "農業 [1]" "政治 [3]" "必要"  
 [3,] "法案"     "再生"     "香川" "改革" "首都"     "自民党"   "地域"  
 [4,] "立法"     "安心"     "四国" "政策" "山形"     "党"       "熊本"  
 [5,] "成立"     "地方"     "発展" "環境" "圏"       "選挙"     "良い"  
 [6,] "活動"     "制度"     "女性" "制度" "福島"     "国民 [4]" "高齢"  
 [7,] "法律"     "水産"     "安心" "確立" "地方"     "政権"     "問題"  
 [8,] "提出"     "医療"     "支援" "国"   "茨城"     "政党"     "減少"  
 [9,] "改正"     "安全"     "文化" "活動" "米"       "責任"     "成長"  
[10,] "政策"     "雇用"     "伝統" "強化" "栃木"     "内閣"     "増加"  
[11,] "提案"     "社会 [3]" "南部" "貢献" "東京"     "派"       "高い"  
[12,] "案"       "支援"     "絶対" "体制" "国民 [4]" "野党"     "維持"  
[13,] "年間"     "実現"     "声"   "平和" "道"       "政界"     "現状"  
[14,] "企業 [5]" "保障"     "築く" "連"   "農政"     "政策"     "増える"
[15,] "ひと [2]" "守る"     "市"   "制定" "移転"     "総理"     "県"    
      T_45       T_46       T_47       T_48       T_49       T_50      
 [1,] "女性"     "アジア"   "改革"     "費"       "安全"     "教育 [5]"
 [2,] "いかす"   "外交"     "政治 [3]" "軍事"     "日本 [4]" "子供"    
 [3,] "経験"     "平和"     "企業 [5]" "自民党"   "問題"     "心"      
 [4,] "働く"     "世界"     "金"       "政治 [3]" "安心"     "日本 [4]"
 [5,] "作る"     "関係"     "献金"     "暮らし"   "回復"     "社会 [3]"
 [6,] "国政"     "国際"     "権"       "中曽根"   "年金"     "大切"    
 [7,] "社会 [3]" "諸国"     "自民党"   "円"       "対策"     "国"      
 [8,] "力"       "米"       "禁止"     "反対"     "教育 [5]" "育てる"  
 [9,] "教育 [5]" "アメリカ" "団体"     "削る"     "犯罪"     "学校"    
[10,] "年寄り"   "国"       "国民 [4]" "教育 [5]" "拉致"     "家庭"    
[11,] "子供"     "友好"     "腐敗"     "国会"     "治安"     "持つ"    
[12,] "実現"     "保障"     "憲法"     "老人"     "再生"     "世紀"    
[13,] "国際"     "信頼"     "区"       "政府"     "景気"     "作り"    
[14,] "福祉"     "安全"     "選挙"     "なくす"   "守る"     "豊か"    
[15,] "声"       "協力"     "真"       "核兵器"   "経済"     "未来"    
      T_51       T_52       T_53       T_54       T_55       T_56      
 [1,] "税 [4]"   "党"       "円"       "農業 [1]" "党"       "党"      
 [2,] "消費 [4]" "日本 [4]" "増税"     "自給"     "共産"     "消費 [4]"
 [3,] "改革"     "共産"     "党"       "食糧"     "日本 [4]" "税 [4]"  
 [4,] "行政"     "国民 [4]" "税 [4]"   "率"       "国民 [4]" "憲法"    
 [5,] "税率"     "税 [4]"   "憲法"     "漁業 [1]" "平和"     "日本 [4]"
 [6,] "介護"     "増税"     "自民党"   "輸入"     "自民党"   "増税"    
 [7,] "契約"     "消費 [4]" "日本 [4]" "食料"     "守る"     "民主 [3]"
 [8,] "地方"     "反対"     "民主 [3]" "向上"     "民"       "自民党"  
 [9,] "規制"     "米"       "控除"     "制度"     "円"       "守る"    
[10,] "増税"     "政治 [3]" "戦争"     "生産"     "悪政"     "共産"    
[11,] "up"       "選挙"     "民営"     "実現"     "企業 [5]" "改悪"    
[12,] "法人"     "つらぬく" "所得"     "自由 [3]" "反対"     "財源"    
[13,] "国"       "新しい"   "ひと [2]" "農"       "主義 [3]" "条"      
[14,] "行革"     "企業 [5]" "銀行"     "農家"     "社"       "反対"    
[15,] "減税"     "流れ"     "条"       "守る"     "主権"     "暮らし"  
      T_57       T_58       T_59       T_60       T_61       T_62      
 [1,] "民営"     "不安"     "年金"     "日本 [4]" "被爆"     "政治 [3]"
 [2,] "郵政"     "年金"     "円"       "国民 [4]" "平和"     "必要"    
 [3,] "郵便"     "介護"     "制度"     "共産"     "長崎"     "政策"    
 [4,] "改革"     "安心"     "医療"     "党"       "広島"     "自分"    
 [5,] "局"       "雇用"     "地域"     "政治 [3]" "核"       "ひと [2]"
 [6,] "国民 [4]" "医療"     "企業 [5]" "公約"     "世界"     "問題"    
 [7,] "事業"     "景気"     "無駄"     "選挙"     "廃絶"     "国民 [4]"
 [8,] "民間"     "社会 [3]" "月額"     "税 [4]"   "援護"     "良い"    
 [9,] "資金"     "制度"     "手当"     "目指す"   "核兵器"   "生活"    
[10,] "公社"     "回復"     "生活"     "増税"     "戦争"     "年間"    
[11,] "サービス" "保険"     "政権"     "政党"     "制定"     "出る"    
[12,] "郵貯"     "作る"     "廃止 [4]" "主人公"   "ひと [2]" "持つ"    
[13,] "法人"     "将来"     "子供"     "守る"     "軍縮"     "東京"    
[14,] "地方"     "解消"     "交代"     "声"       "米"       "仕事"    
[15,] "保険"     "老後"     "主権"     "ノー"     "非核"     "取る"    
      T_63       T_64       T_65     T_66       T_67       T_68      
 [1,] "労働"     "大阪"     "ロ"     "農林"     "自民党"   "全力"    
 [2,] "実現"     "福祉"     "ゼ"     "水産"     "消費 [4]" "問題"    
 [3,] "守る"     "関西"     "実現"   "県"       "自由 [3]" "取り組む"
 [4,] "医療"     "政府"     "支援"   "宮崎"     "コメ"     "尽くす"  
 [5,] "政治 [3]" "医療"     "児童"   "企業 [5]" "輸入"     "秋田"    
 [6,] "ひと [2]" "実践"     "保育"   "安定"     "税 [4]"   "経験"    
 [7,] "国"       "是正"     "導入"   "岩手"     "企業 [5]" "力"      
 [8,] "国民 [4]" "空港"     "子育て" "地方"     "献金"     "いかす"  
 [9,] "なくす"   "全力"     "待機"   "漁業 [1]" "金"       "解決"    
[10,] "学級"     "自由 [3]" "作戦"   "国土"     "権"       "県"      
[11,] "老人"     "首相"     "再生"   "国"       "阻止"     "社会 [3]"
[12,] "費"       "推進"     "年間"   "つとめる" "院"       "岡山"    
[13,] "時間"     "開発 [1]" "手当"   "中小 [5]" "禁止"     "環境"    
[14,] "パート"   "景気"     "料金"   "確保"     "主人公"   "高齢"    
[15,] "やめる"   "確保"     "時間"   "振興"     "独裁"     "国政"    
      T_69       T_70       T_71       T_72       T_73       T_74      
 [1,] "年金"     "増税"     "国民 [4]" "円"       "教育 [5]" "社会 [3]"
 [2,] "円"       "党"       "党"       "兆"       "政治 [3]" "推進"    
 [3,] "金"       "守る"     "民主 [3]" "ひと [2]" "福祉"     "豊か"    
 [4,] "廃止 [4]" "反対"     "中心"     "国"       "人間"     "図る [5]"
 [5,] "兆"       "憲法"     "実現"     "借金"     "確立"     "作り"    
 [6,] "制度"     "庶民"     "政治 [3]" "財政"     "政策"     "実現"    
 [7,] "創設"     "改悪"     "目指す"   "事業"     "値"       "改革"    
 [8,] "子供"     "自民党"   "日本 [4]" "年間"     "日本 [4]" "生活"    
 [9,] "保険"     "野党"     "防波堤"   "国民 [4]" "偏差"     "つとめる"
[10,] "支給"     "確か"     "絶対"     "費"       "心"       "世紀"    
[11,] "保障"     "民営"     "なくす"   "地方"     "個性"     "目指す"  
[12,] "月"       "共産"     "軍事"     "企業 [5]" "世界"     "教育 [5]"
[13,] "補助"     "郵政"     "野党"     "税金"     "愛"       "充実 [5]"
[14,] "特別"     "日本 [4]" "同盟"     "公共"     "基本"     "整備 [1]"
[15,] "一元化"   "国民 [4]" "主人公"   "赤字"     "実現"     "福祉"    
      T_75       T_76       T_77       T_78       T_79       T_80      
 [1,] "税金"     "れる"     "円"       "日本 [4]" "税 [4]"   "医療"    
 [2,] "無駄"     "と"       "対策"     "守る"     "住宅"     "制度"    
 [3,] "変える"   "バランス" "事業"     "主義 [3]" "生活"     "介護"    
 [4,] "日本 [4]" "作る"     "拡大"     "鹿児島"   "減税"     "充実 [5]"
 [5,] "年金"     "調和"     "公共"     "共産"     "消費 [4]" "支援"    
 [6,] "政治 [3]" "教育 [5]" "景気"     "国民 [4]" "円"       "保育"    
 [7,] "官僚"     "経済"     "経済"     "民主 [3]" "資産"     "年金"    
 [8,] "政権"     "問題"     "内需"     "党"       "実現"     "安心"    
 [9,] "作る"     "新潟"     "不況"     "教育 [5]" "相続"     "女性"    
[10,] "国民 [4]" "時代"     "減税"     "政党"     "土地"     "子育て"  
[11,] "なくす"   "県"       "予算"     "福祉"     "家賃"     "保険"    
[12,] "交代"     "貿易"     "実施"     "規制"     "固定"     "育児"    
[13,] "安心"     "解決"     "企業 [5]" "増税"     "非課税"   "福祉"    
[14,] "公共"     "個性"     "緊急"     "企業 [5]" "税制"     "子供"    
[15,] "癒着"     "作り"     "中小 [5]" "声"       "廃止 [4]" "拡充"    
      T_81       T_82       T_83       T_84       T_85       T_86      
 [1,] "都市"     "選挙"     "対策"     "日本 [4]" "福井"     "作り"    
 [2,] "市"       "区"       "安全"     "世界"     "静岡"     "まち"    
 [3,] "町"       "比例"     "支援"     "平和"     "東"       "進める"  
 [4,] "国際"     "票"       "推進"     "社会 [3]" "中部"     "ひと [2]"
 [5,] "地域"     "代表"     "災害 [2]" "環境"     "県"       "環境"    
 [6,] "区"       "自民党"   "作り"     "国際"     "河"       "豊か"    
 [7,] "文化"     "ひと [2]" "食"       "経済"     "空港"     "住む"    
 [8,] "構想"     "政党"     "防災"     "地球"     "西"       "心"      
 [9,] "実現"     "党"       "強化"     "貢献"     "岐阜"     "大切"    
[10,] "建設"     "候補"     "安心"     "作る"     "国際"     "自然"    
[11,] "空港"     "制度"     "確保"     "国"       "東海"     "安心"    
[12,] "北九州"   "国会"     "地震"     "政治 [3]" "愛知"     "暮らし"  
[13,] "センター" "投票"     "地域"     "生活"     "産業 [1]" "都市"    
[14,] "拠点"     "有権者"   "強い"     "目指す"   "名古屋"   "生活"    
[15,] "活性"     "改革"     "神戸"     "守る"     "郷土"     "緑"      
      T_87       T_88       T_89           T_90       T_91      
 [1,] "円"       "社会 [3]" "円"           "基地"     "線"      
 [2,] "減税"     "環境"     "年金"         "沖縄"     "整備 [1]"
 [3,] "平和"     "目指す"   "改革"         "米"       "道路"    
 [4,] "税 [4]"   "実現"     "兆"           "軍"       "都市"    
 [5,] "大型"     "女性"     "実現"         "県民"     "実現"    
 [6,] "中曽根"   "男女"     "廃止 [4]"     "振興"     "駅"      
 [7,] "反対"     "福祉"     "無駄"         "縮小"     "建設"    
 [8,] "間接"     "参加"     "増税"         "返還"     "促進"    
 [9,] "教育 [5]" "確立"     "日本 [4]"     "撤去"     "交通"    
[10,] "拡大"     "制度"     "削減"         "実現"     "早期"    
[11,] "国民 [4]" "参画"     "政権"         "産業 [1]" "推進"    
[12,] "福祉"     "共同"     "サラリーマン" "離島"     "号線"    
[13,] "内需"     "情報"     "地域"         "建設"     "まち"    
[14,] "不況"     "分権"     "交代"         "利用"     "解消"    
[15,] "守る"     "進める"   "社会 [3]"     "平和"     "地下鉄"  
      T_92       T_93         T_94       T_95       T_96      
 [1,] "税 [4]"   "郷土"       "故郷"     "振興"     "政治 [3]"
 [2,] "自由 [3]" "政治 [3]"   "政治 [3]" "推進"     "新しい"  
 [3,] "一新"     "努力"       "豊か"     "つとめる" "時代"    
 [4,] "日本 [4]" "支援"       "世紀"     "充実 [5]" "若い"    
 [5,] "教育 [5]" "発展"       "時代"     "改善"     "日本 [4]"
 [6,] "基礎"     "申し上げる" "目指す"   "恩給"     "力"      
 [7,] "改める"   "我が国"     "心"       "問題"     "世紀"    
 [8,] "新しい"   "全力"       "活力"     "福祉"     "世代"    
 [9,] "国"       "選挙"       "郷土"     "農林"     "行動"    
[10,] "所得"     "決意"       "新しい"   "対策"     "歳"      
[11,] "義務"     "尽くす"     "社会 [3]" "企業 [5]" "世界"    
[12,] "国民 [4]" "力"         "全力"     "母子"     "変える"  
[13,] "革命"     "心"         "実現"     "建設"     "求める"  
[14,] "経済"     "日本 [4]"   "力"       "促進"     "交代"    
[15,] "仕組み"   "あたたかい" "ひと [2]" "向上"     "情熱"    
[[1]]


[[2]]


[[3]]

Standard LDA

get_lda_result(doc_folder, seed_list, iter_num, k=100, showtop=T)
      1        2      3        4        5      6    7      8            9
1    県     ひと   制度     作る   目指す   環境 企業   世界         政権
2  農業       心   介護   進める     実現   地球 中小   平和         交代
3  県民     大切   医療     日本     社会   自然 金融   国際       民主党
4  全国     社会   年金     国民     高齢   保全 零細   外交         実現
5    北     人間   保険   新しい     公正   世界 まち   貢献       自民党
6  宮崎     教育   保障     社会     確立     水 商店 アジア       変える
7  青森   生きる   安心     改革     安心     緑 活性   日本         日本
8  豊か   育てる   充実       力     福井   豊か 経営   関係         国民
9  長崎     共に   確立   改める 暮らせる   人間 融資   積極         政策
10 県内   支える   確保     守る     教育 美しい 雇用   国連         選択
11 山形     基本   導入   強める     環境   破壊 支援   安全         連立
12 福島 思いやり   高齢     世界     公平   大切 保証   諸国         作る
13 努力     精神   公的   増やす   ひらく   生活 経済   協力 マニフェスト
14 発展     家族 見直し ひろげる     制度   守る 政府   信頼       変わる
15 誘致     幸せ   家族       国     正義   保護 予算     国         可能
         10   11       12   13     14       15     16     17   18       19
1      社会 推進     増税   税   政治     図る   必要   政治 技術     政治
2      雇用 整備     反対 消費 変える つとめる   問題   政党 産業     国民
3      産業 環境     守る 改革   日本     安定   現在   選挙 科学     生活
4      支援 確立     憲法 行政 変わる     確立   政策   保守 情報       手
5      環境 施策     庶民 規制     力     充実   状況   政界 開発 取り戻す
6      構築 社会     野党 税率 大きい   進める   将来   政策 育成     利益
7      創出 基盤   自民党 介護   動く   目指す   重要   ひと 国際     本位
8      創る 地域     改悪 法人   流れ     振興 我が国     感 研究     不信
9      安心 促進     確か 地方     票     確保   進む 有権者 人材     不在
10     教育 育成     民営 削減   約束     教育   人口   資金   力     合意
11     育成 総合     国民 料金   怒り     向上   経済   良い 教育   わかる
12     創造 積極     郵政 撤廃   正す     強化   課題 感じる 通信   本当に
13     再生 体制   共産党   up   必ず     活性   主張   体質 創造   求める
14     経済 確保     日本 契約   来る     発展   全体   権力 先端   ひらく
15 システム 農林 サービス 省庁 動かす     促進 含める   選ぶ 資源     絶対
       20       21           22       23     24     25     26       27
1    ひと     改革         年金       市     国   若い   改革     政治
2    自分     郵政         廃止     施設   日本     力   断行     信頼
3    仕事     民営         道路     実現   国家   世代   推進     清潔
4    働く     政府         削減     福祉   国民   政治   実現     誠実
5    必要     小泉           金     老人   持つ   行動   制度     信条
6  わかる     民間         補助     充実   良い 新しい 行財政     豊か
7    出る     郵便         実現       町   経済   時代   構造     姿勢
8  感じる       官         議員 センター 日本人   情熱   抜本     持つ
9    良い       民         無駄     設置   社会   世紀   税制     確立
10   知る       局         ひと     建設   誇り   挑戦     真 こたえる
11 受ける     年金         財源     健康   基本   持つ   行政     倫理
12   持つ   公務員         高速     大学   責任     歳   実行       道
13   作る     地方         無料     誘致   価値     父   大胆     歩む
14   言葉     国民       民主党     特別 改める   感覚   本当     実行
15 本当に サービス マニフェスト     地元   自分   岡山 進める     不信
         28       29     30     31       32     33     34     35     36
1      日本     豊か   労働   政治       道 新しい   社会   責任   社会
2      企業     活力   実現   改革     早期   政治   日本     国   女性
3        税     社会   制度 自民党     建設   改革   作る   持つ   男女
4      増税     推進   時間   腐敗     促進   時代     力   未来   参加
5      国民     世紀   雇用   選挙     道路   日本 自民党   将来   子供
6      消費     作り   確立     党     整備   変革   政治   日本   共同
7      基地     教育   改善   金権   自動車   創る   中心   強い   働く
8      優先       心   働く   防止     完成   古い   守る   必要   参画
9      政治     創造   生活   政権     事業   歴史   事業   勇気 目指す
10     福祉     福祉   制定   制度     空港   決意     森 果たす   福祉
11 ストップ     健康   年金   支配     国道   行動   首相   信頼   実現
12     医療     育成   条件 新しい     開発   挑戦   消費     感   障害
13   共産党   青少年   拡大     派   新幹線   新党   ひと   役割   高齢
14     民主 生きがい   充実   制定 バイパス   流れ   政府     力 優しい
15     反対     個性 パート   事件     着工 起こす   経済   国民   家庭
         37     38       39     40       41     42   43     44     45   46
1        税     円     支援   都市     日本   国会 不安   事業   医療 主義
2      平和   国民     保育   東京   共産党   議員 年金   公共   支援 自由
3      消費   医療   子育て     圏     国民   法案 社会     国   雇用 民主
4      保障   政権     制度   国際     消費   成立 雇用   教育   介護 社会
5      社会     費     充実   大阪       税   立法 将来   ひと     金 世界
6      年金   自公     拡充   実現     増税 衆議院 安心   予算   保障 体制
7  アメリカ     兆     介護   構想     民主   年間 生活   投資   安心 平和
8      企業     税     児童   首都 つらぬく   改正 解消     費   制度 政治
9      増税   高齢     医療   時代     反対     案 失業   転換 子育て 経済
10     雇用   消費     年金 目指す     企業   法律 老後   学校   成長 確立
11   なくす   派遣     安心   文化       党   削減 介護   拡大   強化 守る
12     政治 主人公     ゼロ   機能   やめる   提出 ひと   雇用   対策 国家
13     いい   軍事     育児   中心     自由   提案 医療   必要   解消 選択
14     日本   保障 サービス   福祉     守る   定数 犯罪   年金   再生 東欧
15     独立   雇用     障害   集中   主人公   活動 倒産 進める   削減 国民
       47     48       49     50     51     52       53     54     55
1    農林   農業     福祉   教育   整備   希望     日本   故郷   選挙
2    漁業   自給     充実   子供     線     夢     社会   豊か     区
3    産業     率     医療   学校   交通 持てる     国民   郷土     票
4    水産   食糧     教育   個性   道路   ひと       国   作り 自民党
5    振興   食料     実現   家庭   都市   働く     保障     心   代表
6      農   向上     高齢   制度   推進   社会     政府   世紀   候補
7    工業   安全     社会     心     駅   若者     政治   活力   比例
8    地場   農家     図る イジメ   建設   実現     改革   住む   投票
9  北海道   生産     年金 育てる   促進   子供   目指す     愛   支持
10     商   輸入     施設   福祉   実現     汗   暮らし   発展   議員
11   林業 高める     障害 のばす     網   未来     経済   明日   問う
12   秋田   農政     健康   教師   解消 年寄り     良い   時代 有権者
13   農業 農産物 サービス     値 下水道   安心       歩   創る   選ぶ
14   生産   供給     在宅   偏差 地下鉄   作る アメリカ 明るい   是非
15   図る   価格     保健   大切   早期   報う     企業 愛する 衆議院
         56       57         58     59       60       61     62     63
1  つとめる       税       守る   基地     安心     作り   対策   減税
2      整備     消費       予算     米     子供     まち   企業     円
3      振興     憲法     暮らし   沖縄     元気   進める   中小   拡大
4      郷土     増税       保障   実現     未来       国   推進   大型
5      充実   暮らし       政治     軍     社会     ひと   強化   不況
6      図る     改悪     自民党   利用 暮らせる     地域   制度   内需
7      努力 アメリカ     ルール   県民     作る     強い   充実   間接
8      改善   自民党       介護   縮小   育てる     商店   拡充   大幅
9      発展     平和       憲法   建設 取り戻す     支援   実施 中曽根
10     福祉     保障       公共   開発     老後     住む   支援     税
11     育成     守る       社会   返還     環境     教育   改善   反対
12     道路   共産党       事業 目指す   子育て     災害 進める   教育
13     開発       条       規制   振興     活力     京都   緊急   対策
14     地場     応援     共産党   安保     創る     環境   政策   所得
15     婦人   民主党 切り替える     島     育つ 取り組む   措置   導入
       64       65       66   67       68         69         70       71
1      税     景気     政治   円     世紀       消費       環境     政策
2    消費     回復     立つ   兆     社会         税 エネルギー     経済
3    廃止     対策     立場 ひと     時代       廃止       社会     教育
4  自民党     経済     庶民 年間   新しい       税制       自然     基本
5    自由 取り組む     先頭   国     高齢       政治       資源     実現
6    輸入     安定     ひと 年金     対応     自民党       もの     重点
7    政治     世紀     弱い 所得   ひらく       選挙 リサイクル     改革
8    コメ     高齢   目指す 予算   向ける     社会党       地球     実行
9    国民     信頼     福祉 借金   求める     不公平       政策     確立
10   阻止     実行 がんばる 現在 システム リクルート       教育     生活
11   献金     本格     弱者   費   迎える       公正       推進     福祉
12   企業     活性     原点 年度     変化       国民       転換     置く
13   金権     教育       光 特別     新た       公平       ゴミ     転換
14   禁止   明るい     戦う 国民     課題       軍縮       廃棄 取り組む
15   団体     山梨     絶対   増 取り組む     参議院       促進     中心
       72         73     74   75     76           77     78     79     80
1    日本       年金 共産党 安全 我が国           税   日本   日本   平和
2      税       負担 自民党 対策   努力         住宅   世界   国民   憲法
3    消費       制度     費 安心   国際         減税     国   政治   人権
4    癒着         費   軍事 強化   経済         生活   経済   公約   守る
5    企業       保険   守る   食   安定         税制     力 共産党   基本
6      官       ひと   反対 災害   発展         資産 支える   守る   福祉
7      政       基礎   平和 犯罪   郷土         所得 世界一   選挙   反対
8      財       所得 暮らし 治安   繁栄         消費   先進     税   差別
9  共産党       安心     円 支援   時代         土地 誇れる   政党   戦争
10   選挙       保障 中曽根 保障   世界       非課税 日本人   平和   制定
11   流れ 引き上げる   戦争 体制   貿易         相続     柱   審判   尊重
12 新しい       医療   福祉 拉致   課題         軽減   進路     声   平等
13   反対       軽減   削る 危機   情勢         家賃   尊敬   反対   許す
14     米       給付   国会 防災   対応         固定 世界中   優先 進める
15   増税       将来   老人 確保 迎える サラリーマン リード   ノー   障害
       81   82   83       84   85       86       87   88     89     90
1    年金 日本 地方     全力 再生     文化       声 行政   増税   整備
2    制度 政治 分権   尽くす 改革     産業     国政 財政     円   道路
3      円 国民   国     実現 経済     振興   いかす 改革   憲法   交通
4    医療 福祉 中央       力 日本   いかす     経験 再建 自民党   高速
5    地域 教育 権限   あげる 可能     作り     政治 経済     税     網
6    廃止 守る 確立     約束 地方     教育     反映 政府 民主党     道
7    月額 生活 自治 がんばる   国     地域     国会 緩和   日本   観光
8    手当 医療 財源     発展 持続     伝統   届ける 規制   控除   基盤
9    子供 実現 地域     福祉 成長 スポーツ     地元 構造   守る   発展
10   無駄 規制 行政     投球 構造     自然     現場 社会   戦争   空港
11     金 環境 主権 取り組む 宣言     観光     聞く 効率   民営   振興
12   支給 復興 移譲     決意 制度     地場     働く 赤字     条 新幹線
13   最低 被災 住民     注ぐ 金融     歴史     決意 活力   改悪   産業
14   創設 再建 集権   いかす 保障     国際     香川 高齢   郵政   農林
15 子育て 阻止   州   求める 外交     豊か がんばる 健全 公明党   体系
       91     92       93     94         95       96       97           98
1  自民党   守る     市民   生活       支援     増税     問題         地域
2    企業 暮らし     情報   社会 申し上げる     日本 取り組む         経済
3    改革     命     官僚   豊か       決意     国民     解決         活性
4    国民   作る     公開   実現     心から     政治     課題         作り
5    献金   大切     参加   経済 あたたかい       税     改革     取り組む
6  共産党   国民     活動   環境         心     消費     重要           力
7    金権   平和 システム   実感       郷土   共産党     全力         生活
8    政治   約束     行政 ゆとり       国政     反対     必要         活動
9    日本   ひと     主役   大国       選挙 つらぬく     山積       いかす
10     党   医療     政治   優先     立候補     全力     戦後         住民
11   禁止   働く     共生   高齢       感謝       党   抱える         活力
12   選挙   生命     中心   政策       賜る     中心     最大         再生
13   団体   子供     社会   福祉       当選       力     努力         魅力
14   腐敗 生きる     主権   活力     力強い     作る   向ける         全体
15   憲法   仕事   民主党   築く       発展     流れ     立場 ネットワーク
         99    100
1      税金   委員
2      無駄   大臣
3      官僚     長
4    なくす   内閣
5      予算   平成
6    天下り   実績
7      使う   総理
8    変える   国会
9      使い   当選
10     年金 衆議院
11     議員     党
12     禁止   会長
13   徹底的   経験
14 無駄遣い   政策
15     必要   議員
[[1]]


[[2]]

New Visualization

Middle

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35))
[1] "Finished: "
   user  system elapsed 
 10.926   2.090  13.167 
[1] "Finished: "
   user  system elapsed 
  9.037   1.032  10.145 
[1] "Finished: "
   user  system elapsed 
  8.143   1.170   9.382 
[1] "Finished: "
   user  system elapsed 
  7.531   0.980   8.544 
[1] "Finished: "
   user  system elapsed 
 10.226   1.863  12.128 
[1] "Finished: "
   user  system elapsed 
  9.018   1.345  10.672 
[1] "Finished: "
   user  system elapsed 
  7.824   1.007   8.863 
[1] "Finished: "
   user  system elapsed 
  7.474   1.085   8.598 
[1] "Finished: "
   user  system elapsed 
 10.350   1.925  12.341 
[1] "Finished: "
   user  system elapsed 
  9.438   1.344  10.951 
[1] "Finished: "
   user  system elapsed 
  8.272   1.312   9.739 
[1] "Finished: "
   user  system elapsed 
  8.355   1.198   9.631 
[1] "Finished: "
   user  system elapsed 
 10.712   1.818  12.605 
[1] "Finished: "
   user  system elapsed 
  8.868   1.429  10.564 
[1] "Finished: "
   user  system elapsed 
  8.243   1.077   9.384 
[1] "Finished: "
   user  system elapsed 
  7.914   1.022   8.987 

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35),
                     seed_contamination=2)
[1] "Finished: "
   user  system elapsed 
 10.810   2.161  13.085 
[1] "Finished: "
   user  system elapsed 
  8.984   1.192  10.315 
[1] "Finished: "
   user  system elapsed 
  8.702   1.275  10.063 
[1] "Finished: "
   user  system elapsed 
  8.177   1.285   9.539 
[1] "Finished: "
   user  system elapsed 
 11.183   2.194  13.559 
[1] "Finished: "
   user  system elapsed 
  8.464   1.265   9.794 
[1] "Finished: "
   user  system elapsed 
  8.466   1.124   9.656 
[1] "Finished: "
   user  system elapsed 
  8.302   1.277   9.652 
[1] "Finished: "
   user  system elapsed 
 10.601   2.113  12.838 
[1] "Finished: "
   user  system elapsed 
  8.704   1.274  10.339 
[1] "Finished: "
   user  system elapsed 
  7.762   1.107   8.911 
[1] "Finished: "
   user  system elapsed 
  7.800   1.104   8.934 
[1] "Finished: "
   user  system elapsed 
  9.879   1.817  11.731 
[1] "Finished: "
   user  system elapsed 
  8.251   1.257   9.543 
[1] "Finished: "
   user  system elapsed 
  7.725   1.123   8.889 
[1] "Finished: "
   user  system elapsed 
  7.726   1.046   8.803

Low

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.25)
[1] "Finished: "
   user  system elapsed 
  9.549   1.774  11.348 
[1] "Finished: "
   user  system elapsed 
  8.085   1.160   9.282 
[1] "Finished: "
   user  system elapsed 
  7.524   1.175   8.734 
[1] "Finished: "
   user  system elapsed 
  7.106   0.973   8.096 
[1] "Finished: "
   user  system elapsed 
 10.125   1.924  12.208 
[1] "Finished: "
   user  system elapsed 
  8.241   1.268   9.657 
[1] "Finished: "
   user  system elapsed 
  8.705   1.422  10.518 
[1] "Finished: "
   user  system elapsed 
  8.118   1.299   9.771 
[1] "Finished: "
   user  system elapsed 
 10.900   1.930  13.232 
[1] "Finished: "
   user  system elapsed 
  9.264   1.591  11.328 
[1] "Finished: "
   user  system elapsed 
  8.343   1.297   9.736 
[1] "Finished: "
   user  system elapsed 
  8.825   1.482  10.953 
[1] "Finished: "
   user  system elapsed 
 11.086   1.889  13.326 
[1] "Finished: "
   user  system elapsed 
  7.667   1.190   8.902 
[1] "Finished: "
   user  system elapsed 
  7.548   1.133   8.721 
[1] "Finished: "
   user  system elapsed 
  8.022   1.277   9.484 

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.25,
                     seed_contamination=2)
[1] "Finished: "
   user  system elapsed 
 10.356   1.807  12.262 
[1] "Finished: "
   user  system elapsed 
  8.660   1.167   9.875 
[1] "Finished: "
   user  system elapsed 
  8.007   1.263   9.440 
[1] "Finished: "
   user  system elapsed 
  7.514   1.102   8.657 
[1] "Finished: "
   user  system elapsed 
 10.093   1.791  11.976 
[1] "Finished: "
   user  system elapsed 
  8.369   1.273   9.791 
[1] "Finished: "
   user  system elapsed 
  7.579   1.083   8.793 
[1] "Finished: "
   user  system elapsed 
  9.178   1.492  11.168 
[1] "Finished: "
   user  system elapsed 
  9.952   1.950  11.961 
[1] "Finished: "
   user  system elapsed 
  7.681   1.258   8.977 
[1] "Finished: "
   user  system elapsed 
  7.260   1.080   8.365 
[1] "Finished: "
   user  system elapsed 
  7.493   1.106   8.666 
[1] "Finished: "
   user  system elapsed 
  9.877   1.949  11.866 
[1] "Finished: "
   user  system elapsed 
  8.218   1.296   9.616 
[1] "Finished: "
   user  system elapsed 
  7.755   1.245   9.129 
[1] "Finished: "
   user  system elapsed 
  7.276   1.147   8.499

High

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.1)
[1] "Finished: "
   user  system elapsed 
 10.622   1.829  12.499 
[1] "Finished: "
   user  system elapsed 
  9.307   1.140  10.656 
[1] "Finished: "
   user  system elapsed 
  8.233   1.065   9.330 
[1] "Finished: "
   user  system elapsed 
  8.478   1.334  10.070 
[1] "Finished: "
   user  system elapsed 
 11.092   2.110  13.307 
[1] "Finished: "
   user  system elapsed 
  8.325   1.243   9.597 
[1] "Finished: "
   user  system elapsed 
  7.911   1.148   9.089 
[1] "Finished: "
   user  system elapsed 
  7.394   1.118   8.545 
[1] "Finished: "
   user  system elapsed 
 10.869   2.123  13.059 
[1] "Finished: "
   user  system elapsed 
  8.224   1.360   9.647 
[1] "Finished: "
   user  system elapsed 
  8.281   1.273   9.683 
[1] "Finished: "
   user  system elapsed 
  7.817   1.235   9.099 
[1] "Finished: "
   user  system elapsed 
 10.911   2.028  13.014 
[1] "Finished: "
   user  system elapsed 
  9.585   1.538  11.275 
[1] "Finished: "
   user  system elapsed 
  7.653   1.143   8.827 
[1] "Finished: "
   user  system elapsed 
  7.365   1.136   8.538 

# How many "true" topic can keywords collect?
multiple_simulations(trueK=c(5,15,25,35), estimatedK=c(5,15,25,35), seed_p_base=0.1,
                     seed_contamination=2)
[1] "Finished: "
   user  system elapsed 
 10.573   1.843  12.469 
[1] "Finished: "
   user  system elapsed 
  8.837   1.200  10.089 
[1] "Finished: "
   user  system elapsed 
  7.955   1.211   9.229 
[1] "Finished: "
   user  system elapsed 
  7.504   1.088   8.617 
[1] "Finished: "
   user  system elapsed 
 10.702   2.040  12.774 
[1] "Finished: "
   user  system elapsed 
  8.979   1.555  10.637 
[1] "Finished: "
   user  system elapsed 
  8.005   1.225   9.304 
[1] "Finished: "
   user  system elapsed 
  8.092   1.178   9.378 
[1] "Finished: "
   user  system elapsed 
 11.727   2.376  14.374 
[1] "Finished: "
   user  system elapsed 
  9.540   1.607  11.418 
[1] "Finished: "
   user  system elapsed 
  7.799   1.231   9.065 
[1] "Finished: "
   user  system elapsed 
  7.549   1.154   8.756 
[1] "Finished: "
   user  system elapsed 
 13.292   2.439  16.110 
[1] "Finished: "
   user  system elapsed 
  9.300   1.548  11.064 
[1] "Finished: "
   user  system elapsed 
  8.540   1.398  10.160 
[1] "Finished: "
   user  system elapsed 
  7.616   1.166   8.872